

des logiciels de qualité professionnelle au service du particulier 


PRODUITS SHARP PC-1500 
PC-DATABASE Gestion de base de données. 

PC-WORD Traitement de texte performant. 

PC>CALC3000 Le dernier né des CALCs ; compatible avec PC-CALC3 adopté par plus de 1 500 utilisateurs. 

PC-VISION COUPEZ ■ COPIEZ ■ COLLEZ 

Logiciel entièrement transparent (compatible avec tous les autres), permettant d’accroître con- 
sidérablement les possibilités d’édition de votre éditeur BASIC grâce à un écran virtuel. 

LA PROGRAMMATION EN LANGAGE MACHINE 

PC-MACRO Macro-assembleur complet. 

PC-HEX Moniteur de debugging pour PC-MACRO. 

XMON Le langage machine dans la poche 

Transforme votre ordinateur en calculatrice programmable (style HP-41C) mais en LM. Décou- 
vrez la puissance et la rapidité de ce langage grâce aux 70 fonctions préprogrammées très 
simples d’emploi : éditeur-évaluateur-assembleur interactif : modif, ins, del avec relogement, 
6 modes d’affichage, 104 labels, 9 fonctions d’exécution... (fourni avec le tome 1 de XLM). 

XLM La bible des programmeurs en LM 

tome 1 Initiation, utilisation de la mémoire, manuel de XMON, 22 pages de tables dont RAM système 
et macro-instructions... (livré avec XMON). 

tome 2 Programmathèque, entrées-sorties, ROM BASIC, création de nouveaux mots-clés (livré avec 
XUTIL). 

XUTIL Ensemble de logiciels complémentaires de XMON et programmathèque (livré avec le tome 2 

(fin mars) de XLM). 

MULTIBAS Super-basic avec structures PASCAL et données APL (matrices, fractions... DEF FN, PROC 

(mi-avril) multiligne...). Instructions supplémentaires spécialisées par modules (MATH, STAT, GRAPH, 

DIARY...) 

DISPONIBLES CHEZ TOUS LES BONS REVENDEURS : 

XLOG assure la vente par correspondance pour les localités non desservies par revendeurs (XLOG, 21 , rue du Général- 
Foy, 75008 Paris. 293.32.60). 
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Merci, vous avez été très nombreux à répon- 
dre à notre enquête Sharpentiers, cette 
active participation de votre part démontre, 
s’il en était encore besoin le bien-fondé de 
notre club et de sa revue, dans un monde 
informatique devenu très éclectique où 
l’écoute et le dialogue avec l’utilisateur final 
d’un produit micro-informatique ont été plus 
ou moins abandonnés, au profit d’une dis- 
tribution de masse plus impersonnelle et 
anonyme. 

Vos principales remarques, dont nous 


Les règles en sont très simples mais peu- 
vent rapporter gros aux SHARPENTIERS 
courageux: 

1. Tout Sharpentier dont l’article, le pro- 
gramme ou l’astuce aura été publié dans 
le bulletin SHARPENTIER sera d’office 
inscrit au club, gratuitement, pour une 
nouvelle année. 

2. A la parution de chaque bulletin, une 
main innocente tirera au sort l’un de ces 
auteurs qui gagnera ainsi un des plus 
récents produits SHARP. 

Le tirage au sort des auteurs du bulletin 
n° 11 a été effectué le mercredi 13 mars 
1985. L’heureux gagnant est : M. Philippe 
PIERSON, auteur de BOMBER, petit pro- 
gramme génial de 3 lignes sur PC-1251. Il 
gagne ainsi un PC-1350. 

Pour le n° 12, il y a un PC-1247 à gagner. 
A vos plumes... 


publierons un résumé détaillé dans notre 
bulletin de septembre, portent sur trois 
points essentiels : le manque d’informations 
concernant l’environnement logiciel de nos 
produits, le manque de lisibilité de certains 
listings et l’absence de pédag 
tains de nos articles.. 

Ce bulletin n° 12 tente d’apporter une solu- 
tion à vos deux premières critiques. Nous lui 
avons d'abord ajouté 20 pages, soit une aug- 
mentation de plus de 30 % par rapport à 
notre précédent numéro ; outre la possibi- 
lité de vous présenter des listings plus aérés, 
cette augmentation nous a permis d’insérer 
deux nouveaux dossiers sans empiéter sur 
les rubriques déjà existantes : 

• Un dossier Système, dirigé par B. VICA- 
RINI, responsable du Service Système de la 
société S.B.M. ; il vous apportera un maxi- 
mum d’informations sur les produits profes- 
sionnels de la gamme des micros et minis 
SHARP, ainsi que sur leur environnement 
matériel et logiciel. 

• Un dossier ENSEIGNEMENT ; prolonge- 
ment logique du programme SHARP ENSEI- 
GNEMENT. Son objectif est d’être le trait 
d’union entre les différents utilisateurs de 
produits SHARP dans le monde de l’ensei- 
gnement. Ces pages seront largement ouver- 
tes à toute expérience pédagogique nouvelle 
liée à l’utilisation de la micro-informatique 
dans les établissements d’enseignement. 

Quant à la pédagogie de nos articles, nous 
allons, c’est promis, faire un gros effort pour 
vous présenter des articles d’initiation « au 
ras des pâquerettes » selon une expression 
souvent retrouvée dans vos réponses. 
Prochain bulletin, début juillet, un spécial 
vacances avec 60 pages de programmes. 
A nouveau les choses sérieuses en septem- 
bre avec toutes vos découvertes de l’été. 
A bientôt... 

S. BIZOIRRE 
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LA CARTE DU CLUB 

Vous la recevrez environ six semaines après 
votre première inscription, cette carte est défi- 
nitive, vous n'avez donc pas à nous la retour- 
ner lors du renouvellement de votre adhésion, 
rappelez simplement votre n° d'adhérent sur 
le bulletin que vous nous faites parvenir. 

COURRIER 

Vous avez besoin d'un renseignement ou d'une 
documentation très rapidement ? Envoyez- 
nous dans ce cas une lettre où chaque ques- 
tion sera séparée par une zone blanche. Nous 


vous retournerons ce courrier complété par nos 
réponses, dans la majorité des cas, le jour 
même. 

SPECIAL SICOB 

Comme en 1984, le club sera présent à cette 
grande rencontre printanière du monde infor- 
matique. Toutes les nouveautés seront présen- 
tées sur notre stand. Cette année nous met- 
trons particulièrement l'accent sur les logiciels 
disponibles autour de toutes nos machines PC 
et MZ. Une large place sera également réser- 
vée au programme SHARP ENSEIGNEMENT et 
aux services proposés par le club dans le cadre 
de ce programme. Le SPECIAL SICOB, est éga- 


lement un lieu de rencontre et de dialogue pri- 
vilégié entre les Sharpentiers et leur Club, ces 
contacts sont un élément déterminant dans 
notre désir de mieux adapter le contenu de 
notre bulletin, et l'ensemble de nos services à 
vos attentes. 

Alors... un seul conseil... Venez nombreux nous 
rendre visite. 


sas® 


DANS VOTRE BIBLIOTHEQUE... 


U SHMPEN1IO) 

Entre PROUST et VOLTAIRE, vous pourrez mainte- 
nant glisser votre volume du SHARPENTIER. Nous 
avons rassemblé, en un seul volume de 120 pages, 
la reproduction fidèle des numéros 1 à 5 du bulle- 
tin du cluh. Ce recueil vous fera participer à la nais- 
sance de notre club (1981) et vous fournira tous 
les programmes, astuces et connaissances acquis 
durant les 2 premières années d'activité des Shar- 
pentiers. Bien au-delà, l'achat de ce volume repré- 
sente un investissement durable que les bibliophi- 
les du monde entier s'arracheront dans les siècles 
à venir... 
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vous prie de bien vouloir lui faire parvenir 

□ Recueils) des n° 1 à 5 des bulletins SHARPENTIERS 
au prix de 110 F (port compris) 

□ Bulletin(s) SHARPENTIER n° 6 □, 7 □, 8 □, 9 f= , 10 □ 
au prix de 20 F chacun 

□ Bulletins) SHARPENTIER n° 11 Z, 12 □ 
au prix de 25 F chacun 

□ Manuel(s) Langage Machine PC 1500 

□ Manuel(s) Langage Machine PC 1251 
au prix de 180 F l’un (port compris). 

Je sais que ce livre est en anglais 

et qu’il s’agit d’un manuel de référence 

Ci-joint un chèque de francs. Signaturi 

Date 


Disponibles en exclusivité au club des Sharpentiers, vous 
pouvez vous procurer ces 2 manuels soit par correspon- 
dance au prix de 180 F l’un (port compris), soit directe- 
ment au club, le mercredi après-midi (exclusivement) au 
prix de 170 F. 

Ces manuels, en anglais très bien documentés, sont des 
ouvrages de référence et n’abordent par l’initiation au lan- 
gage machine. 




Le tout en un. Le PC-2500 intègre tous les périphé- 
riques standard du pocket : un clavier, un écran, 
l’interface cassette, l’imprimante, une RS-232C 
TTL, un emplacement pour carte mémoire et un 
logiciel en plus du Basic. 

Au format d’une feuille A4 (210 x297 mm), le 
PC-2500 possède un clavier standard très agréable 
pour une frappe rapide et une table traçante 4 cou- 
leurs. Si d’aspect physique, il ne ressemble à aucun 
autre pocket de la gamme, au niveau interne, c’est 
un PC-1350 avec une table traçante (type CE-515P 
dont nous avions déjà parlé) et un logiciel intégré. 
Compatible à 99,99 % avec le PC-1350, vous pour- 
rez faire tourner dessus tous les logiciels déjà exis- 
tants pour ce produit. 

Mis à part son format et l’intégration des périphé- 
riques, la principale innovation vient du fait que le 
PC-2500 possède un tableur (autrement appelé 
feuille électronique de calcul). Ce programme, véri- 
table petit Multiplan, vous permettra de gérer des 
tableaux pouvant aller jusqu'à 50 lignes de 20 
colonnes. Il vous sera possible de faire des tris sur 
une colonne de votre choix, une recherche... et 
même de sortir sous forme de graphique (bandes, 
lignes brisées, camembert, histogrammes), les 
informations contenues dans vos feuilles 
électroniques . 



La famille des pockets scientifiques s’agrandit en 
accueillant le petit dernier : le PC-1430. Ce modèle 
offre 1 254 pas de programmes et est équipé tout 
comme les PC-1246 et PC-1247 d’un microproces- 
seur 4 bits nommé ESR-J. Légèrement différent des 
140x, le 1430 ne possède pas de mode calcula- 
trice. Les calculs sont faits en mode Basic, soit 
directement par pression d'une touche, soit en écri- 
vant complètement ses expressions. 

On notera l’absence des fonctions hyperboliques, 
du mode de travail en hexadécimal et le fait que 
les fonctions statistiques n’ont plus ici qu'une 
seule dimension. Ce produit simple d'emploi, com- 
plète la gamme des scientifiques. C'est la nouvelle 
calculette du lycéen. 


Très simple d’emploi, fonctionnant avec des 
menus, ce programme résoudra beaucoup de pro- 
blèmes sans avoir à passer par le Basic. 

Une feuille particulière du tableur est accessible 
par le menu principal. Elle s’appelle TELEPHONE 
BOOK. Comme son nom l’indique, elle vous per- 
mettra de mémoriser vos numéros de téléphone 
(jusqu’à 254 noms et numéros). La recherche d’un 
individu dans cette liste est instantanée. 

En plus de ce logiciel, vous avez aussi, bien sûr, 


le BASIC. Celui-ci est rigoureusement le même que 
celui du PC-1350. Seule instruction supplémen- 
taire : TEST pour tester l’imprimante . La table 
traçante s’utilise comme le CE-515P en envoyant 
des codes de commandes dans des chaînes de 
caractères. 

Machine professionnelle, le PC-2500 trouvera sa 
place dans la mallette des cadres dynamiques. 
C’est le complément du PC-1350. Le produit de 
demain. 







La nouvelle génération de PC. Les modèles 
PC-1246 et PC-1247 vont venir remplacer les 
PC-1245 et PC-1251. D'aspect physique, ils se pré- 
sentent comme le PC-1245, avec néanmoins les dif- 
férences suivantes : un clavier plus aéré dans la 
partie pavé numérique, avec un groupement de tou- 
ches de fonction et de touches en gomme qui sont 
de loin beaucoup plus agréables au toucher. 
Hormis l'aspect physique, au niveau interne aussi, 
il y a eu quelques modifications. 

A l’intérieur, on trouve un nouveau microproces- 
seur : l’ESR-J. D’une conception nouvelle, il révo- 
lutionne un peu les concept s de classification des 
microprocesseurs. En effet, ce nouveau CPU est un 
4 bits (quel est ce murmure que je crois entendre). 
C’est un 4 bits, mais quel 4 bits : avec un quartz à 


peine plus rapide que celui du PC-1245 (800 KHz au 
lieu de 570 KHz), on obtient une machine 4 fois plus 
rapide ! Comme quoi ce n’est pas toujours en mul- 
tipliant par 2 le nombre de bits de son micropro- 
cesseur que l’on obtient un produit plus puissant. 
Gérant sa mémoire interne avec des mots de 
10 bits, le Basic n’occupe plus désormais que 17.5 
Ko soit 14 Kmot de 10 bits au lieu de 24 Ko. D’après 
les caractéristiques étonnantes de ce nouveau 
micro, il semblerait même qu’il soit compatible 
avec son petit frère 8 bits l’ESR-H, mais là, malheu- 
reusement, nous n’avons pas eu la possibilité de 
le vérifier, car l’accès au langage machine a été 
bridé (mais il y a quand même quelque chose à 
fouiller de ce côté-là). Produits grand public, les 
PC-1246 et PC-1247 ne diffèrent que par leur capa- 
cité mémoire : le PC-1246 a 2 Ko (1 278 octets utili- 
sateur) et le PC-1247 a 4 Ko (3326 octets 
utilisateur ). 
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Périphérique pour le PC-1350 ou le PC-2500. le 
CE-130T est le convertisseur de signaux RS-232 
tant attendu. 

Grâce au 130T vous pourrez désormais converser 
avec n'importe quel appareil fonctionnant en 
RS-232C norme EIA. 

Pour présenter cette carte, SHARP a réutilisé le boî- 
tier du CE-158 du PC-1500. 
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Les affaires club sont essentiellement constituées 
de matériels, accessoires ou périphériques qui ne 
sont pas (ou plus) commercialisés par le réseau^ 
revendeurs SHARP. Comme vous pouvez le cons-, 
tater, leurs prix sont très attractifs. Une précision, 
toutefois, seules, les « Affaires club » sont com- 
mercialisées par le club, à l'exclusion de tous 
autres matériels normalement distribués par les 
points de ventes SHARP. 


BON DE COMMANDE 


ADRESSE. 

Je passe commande de : 


QUANT. DESIGNATION 


MZ80BCPM Disquette CP/MZ80B 

MBASIC BASIC CP/M (le plus puissant) 

MZ80AFI Interface Floppy 80A 

MZ80AMD Master disquette 80A 

MZ80AD02 FDOS MZ80A 

MZ80MDB Master disquette MZ80B 

MZ8BI04/BC04 Carte interface MZ80B 

IEE488 + câble 

SOFTWARE PACK MZ80A 4 cassettes de programmes 


total ne 

Ci-joint mon règlement de F., par chèque bancaire ou C.C.P. éta- 

bli à l'ordre du CLUB DES SHARPENTIERS. Il représente le montant total 
TTC de ma commande. Je prends bonne note qu'au cas ou ma com- 
mande ne pourrait être honorée dans la limite des stocks disponibles, 
je serai intégralement remboursé du montant des articles non livrés. 

DATE SIGNATURE 


2 AFFAIRES EXCEPTIONNELLES 


PC-3101 




UN ORDINATEUR DE GESTION AU PRIX 
D’UNE CONSOLE DE JEUX 

Le PC-3101 se présente sous la forme d’une console et d’un 
moniteur séparés. 

• La console : équipée d’un clavier Azerty, d’un pavé numérique 
et de 17 touches programmables, elle contient l’unité centrale. 

• L’écran : noir et blanc est monté sur un support et orientable. 

• Les caractéristiques techniques : 48 K de Ram utilisateur, 32 K 
de Rom où est logé un Basic très puissant, interface cassette, 
interface Centronic, horloge et haut-parleur intégrés, affichage 
de 16 lignes de 40 caractères alphanumériques et graphiques, 
possibilité de connecter : lecteur de disquettes, imprimante, carte 
RS232. 

Toutes ces caractéristiques font du PC-3101 un ordinateur idéal 
pour la gestion et l’enseignement. 

Son prix : 2 300 F 


UN SUPER CALCULATEUR SCIENTIFIQUE 
PROGRAMMABLE 

Le PC-2600 est un calculateur programmable aux caractéristiques 
assez étonnantes, jugez-en plutôt : 

• Toutes opérations sur 16 chiffres significatifs affichés. 

• Programmable en code machine sur 512 pas. 

• Sauvegarde des programmes instantanée sur carte 
magnétique. 

• Affichage sur imprimante intégrée (24 car./ligne). 

• Programmation numérique et alphanumérique. 

• Très grande variété de fonctions scientifiques préprogrammées. 
Livré avec manuel, 5 cartes magnétiques, carte de nettoyage, 
rouleau de papier imprimante. 

Son prix : 1 200 F 


SYSTEME 



ENCORE 
DU NOUVEAU 






Elle est dûe à une utilisation croissante des person- 
nal computers. 

Les logiciels, adaptés sur ces matériels sont de plus 
en plus à la portée de tous : Sharp est dans cette 
course ! 

Nous sommes capables aujourd'hui de proposer le 
MZ-800 qui représente le produit du hobbyste et 
du semi-professionnel, jusqu'à l'OA-8000, système 
32 bits sous exploitation UNIX, en passant bien 
entendu par les MZ-3500 et 5600, qui sont les 8 
et 16 bits de nos micros professionnels. 

La présentation de cette nouvelle rubrique sera faite 
par dossiers, constitués sous forme de fiches. 

A chaque édition, nous ouvrirons systématiquement 
les mêmes catégories de dossiers, à savoir : 


LE DOSSIER PRODUITS : nous trouverons 

dans ces fiches le commentaire d'un produit de la 
gamme dans ses grandes lignes ou encore, une spé- 
cificité « hardware » comme des cartes d'extension, 
des disques d'extension, voire des écrans, etc. 

Nous essaierons de tenir un langage qui « ira vers 
vous », c'est-à-dire vers l'utilisateur final. 

LE DOSSIER LOGICIEL : il présentera un 

logiciel spécifique en relatant toutes ses possibili- 
tés, en y introduisant, si possible, les trucs et astu- 
ces, mais surtout, de vous faire parler en tant qu'uti- 
lisateur final. 

Le commentaire d'un logiciel ne suffit pas toujours ; 
il faut vous apporter le pourquoi du choix et l'en- 
gouement dans l'utilisation. Seul l'utilisateur nous 
éclairera. 

DOSSIER ACTUALITES : ce sont les der- 
nières annonces que nous présenterons en spots, 
aussi bien au niveau « hardware » que « software ». 

Cette actualité fera bien entendu l'objet plus tard, 
de dossiers produits. 

Aussi, nous ne nous attacherons pas seulement aux 
derniers nés de la gamme mais aussi aux environ- 
nements qui ont pu être développés par des pro- 
fessionnels du « hard » ou du « soft ». 

Enfin, dans cette actualité, nous n'hésiterons pas à 
vous présenter nos responsables, leurs fonctions et 
surtout ce que vous pouvez attendre d'eux. 


DOSSIER BIBLIOTHEQUE : vous avez le 

plaisir de posséder un matériel professionnel 
SHARP ; votre nature de SHARPENTIER vous per- 
mettra de connaître la bibliothèque de program- 
mes disponibles sur nos différents matériels. 
Notre présentation sera très simple ; par catégorie 
de produit, elle spécifiera : 

• le nom du logiciel, 

• son système d'exploitation, 

• et un bref commentaire sur les fonctionnalités de 
ce produit. 

Sachez enfin, que tous ces logiciels sont disponi- 
bles et peuvent vous être conseillés par notre 
réseau. 

Ainsi, nous espérons donner à ce Club, une dimen- 
sion nouvelle, celle d'une informatique plus globale. 

Nous répondrons par une seule question : 

connaissez-vous beaucoup de clubs informati- 
ques qui partent d'un pocket-computer de type 
PC-1211, pour aller jusqu'à 0A-8000, mini ordi- 
nateur de 32 bits ? 

Sans chercher à être les pionniers, nous pensons 
que demain, l'informatique professionnelle sera uti- 
lisée par beaucoup de nos adhérents du Club, 
comme les étudiantes, les étudiants et les hobbys- 
tes. 

Nous nous efforcerons toujours de répondre à tou- 
tes vos questions et surtout d'inciter nos adhérents 
au désir de consommer l'informatique. 

Nous commencerons notre rubrique professionnelle 
par le SPC 5000 car comme les pockets, il est por- 
table mais en plus il est un véritable ordinateur. 

Bernard Vicarini 
Directeur Dpt Systèmes 





Le nouveau micro floppy du SPC-5000 est le com- 
plément idéal dans son utilisation comme porta- 
ble. De taille réduite (141x230 x64 mm), et 
pesant 2,5 kg, il est indépendant grâce à un accu- 
mulateur au plomb gui lui donne une autonomie 
de plusieurs heures. 

La dimension des micro-disguettes choisies par 
SHARP est de 3" 1/2, dimension qui s'avère être 


devenue le standard du marché. Les disguettes 
3" 1/2, malgré la réduction de taille ont le même 
formatage gue les 5" 1/4 ce gui veut dire gue l'on 
peut faire une copie physigue d'une disguette 
5" 1/4 sur une micro-disguette 3" 1/2. 

Pour les professionnels nous disons gue c'est un 
format 40 pistes double face/double densité à 9 
secteurs par piste. 

Une unité micro disguette peut être utilisée soit 
avec les disguettes 5" 1/4 (4 maximum), soit avec 
une autre unité de micro-disguettes 3" 1/2. La 
mémoire à bulle n'est en aucun cas affectée par 
les drives et est toujours utilisable. 

Dans un environnement difficile, les micro-floppy 
sont certes beaucoup plus sensibles et fragiles, 


mais ils peuvent résoudre des problèmes de 
place, par exemple pour les vendeurs gui démar- 
chent un client gui peuvent avoir les disquettes 
dans leur voiture, et démarcher le client avec le 
SPC-5000 seul, puis de retour dans leur voiture 
ou au restaurant (succès garanti), ils peuvent 
insérer ou traiter les informations recueillies de 
façon plus globale dans un fichier . 

L'utilisation de ces micro-disguettes permet d'en- 
visager de travailler n'importe où avec tous les 
logiciels MS-DOS 8 ou 24 lignes comme avec un 
PC normal de bureau, mais en plus de pouvoir 
se libérer de toute contrainte et avoir un vrai 
portable. 


LE CE-109M 

CARTOUCHE DE SUPPORT 
EPROM 


SHARP a réponse à tout : 

Pour les logiciels il existe des disquettes, la 


mémoire à bulle, les Roms (comme pour EASY 
PAC) et maintenant les EPROMS. 

Se présentant sous la forme d'une petite cartou- 
che de la dimension du CE 100M, c'est-à-dire de 
la taille d'une carte de crédit, et d'une épaisseur 
de 1/2 cm. 

Le CE 109M est un boîtier supportant une ou deux 
EPROM de type 2764, 27128, 27256, et selon les 
combinaisons, pouvant donc stocker 8 à 64 Ko 
de données (ôter 1 Ko pour des raisons de ges- 
tion de l'EPROM). Géré comme une disquette, 
le SPC-5000 au travers de MS-DOS va chercher 


les programmes et les charger en mémoire pour 
les exécuter. 

Pourquoi les EPROM ? 

• Pour les programmes finis qui doivent être com- 
plètement portables dans leur utilisation. 

Pour qui les EPROM ? 

• Pour les SSCI ayant développé une application 
de 64 Ko maximum et nécessitant toute la capa- 
cité de la mémoire à bulle pour travailler de façon 
parfaite. 




PRODUITS 


LE SUPER-PORTABLE 

COMPUTER 

SPC-5000 

VERS 

UNE INFORMATIQUE 
NOUVELLE 


Le SPC-5000 est le seul ordinateur portable 16 
bits intégrant dans un même boîtier : un écran 
à cristaux liquides ; un clavier de machine à 


écrire « AZERTY » ; une mémoire de masse type 
« mémoire à bulle » interchangeables insensi- 
bles aux chocs et utilisables dans un environne- 
ment difficile ; un mémoire centrale 128 k ; une 
mémoire morte contenant le système d'exploita- 
tion ; une imprimante thermique, graphique et 
qualité machine à écrire ; un modem « intelli- 
gent » ; une liaison RS 232 C ; un contrôleur de 
cassettophone extérieur ; une sortie bus pour 
périphérique (Floppy, imprimante externe, 
disque...). 

D'utilisation simple, le SPC 5000 ne pèse que 
4,3 kg et peut donc être emmené en tout lieu. Son 
autonomie est de 8 heures. Il utilise d'autre part 
le même système d'exploitation MS-DOS 
(MICROSOFT) 2.0 que 1TBM-PC. Il possède aussi 
une vaste gamme de logiciels : le traitement de 
texte qui vous permet de créer, éditer, mémori- 
ser et sauvegarder documents, lettres ou toutes 
formes de correspondance écrite ; la communi- 


cation qui permet de dialoguer avec d'autres ordi- 
nateurs ou un autre SPC-5000 ; le tableur qui 
vous facilite la tâche en ce qui concerne la pré- 
vision, l'analyse ; le système d'exploitation mul- 
titâche, multiutilisateur ; la radio-télé- 
communication en mer ; le médical avec un 
générateur de compte rendu opératoire ; la ges- 
tion de représentant d'une entreprise (agenda, 
dossier client. . .) ; le crayon code à barre ; le ser- 
veur vidéotex qui transforme le SPC-5000 en 
répondeur télématique, émulateur VT 100... 
Plusieurs applications sont d'ores et déjà en 
exploitation : les assurances pour leurs vendeurs, 
les quotidiens pour leurs journalistes, le compte 
rendu d'opération pour le chirurgien. 


SES CARACTERISTIQUES 
TECHNIQUES 


SEUL PORTABLE INTEGRANT DANS 
LE MEME BOITIER : 

• Ecran à cristaux de très grande qualité, très 
lisible à la fois en mode caractères (80 x 8) et en 
graphique. 

• Clavier de type machine à écrire « AZERTY » 
agréable à utiliser de 72 touches (flèches et tou- 
ches de fonctions). 

• Mémoire de masse de type « mémoire à bules » 
interchangeable de 128 Ko seul « média » qui soit 
vraiment insensiblé aux chocs et utilisable dans 
un environnement difficile (mer, sable...). 

• Mémoire centrale de 128 Ko de base extensi- 
ble par modules de 64 ou 128 Ko à 320 Ko 
(pratiques). 

• Mémoire morte contenant le système d'exploi- 
tation et le GW basic en 192 Ko. 

• Imprimante intégrée thermique et à transfert 
thermique. Graphique avec 1 197 points par 
ligne et quatre types de caractères : ÉLITE, 
PICA pour les INDICES et les EXPOSANTS 

• Modem « intelligent » intégrant : un pavé 
numérique, un téléphone de conférence, 
mémorisation de numéros d'un correspondant 
de 16 chiffres, « décrochage » automatique à la 
14 e sonnerie et réveil du SPC 5000 et signal de 
mise en œuvre du logiciel de communication. 
Mise « en repos » automatique au bout d'une 
minute d'inutilisation et finalement d'un modem 
de type RS-232e programmable, (homologation 
à l'étude). 


• RS-232C à prise normalisée programmable de 
100 à 9600 BAUDS. 

• Contrôleur de cassettophone extérieur. 

• 2 « slots » pour extensions de mémoire vive ou 
cartouches de mémoire morte pouvant aller 
jusqu'à 1 MO (ex : EASY PAC = 512 Ko ROM). 

• Sortie bus permettant la connexion avec des 
périphériques : 

Unités de disquettes 5" 1/4 (2x360/320 Ko) 
Unités de disquettes 3" 1/2 (non disponible actuel- 
lement) 

Imprimante parallèle (non disponible actuelle- 
ment) 

Disque sur 3" 1/2 (non disponible, rumeurs amé- 
ricaines). 

ET EN PLUS 

• Imprimantes série (RS-232-C) 

• Lecteur de codes à barres accompagné de non 

logiciel 

• Modems acoustiques (RS-232-C) 

• tables traçantes 

• tablettes à digitaliser 

• ordinateur de tout "poil" et tout type (RS-232-C) 
exemple : le SPC-5000 sert parfois de terminal 
à l'ordinateur OA-8000 sous UNIS SHARP ou à 

tout autre centre de calcul . 

• Interface télex marine branché à une BLU 
(SHIPCOM). 

LE SPC-5000 N'EST PAS UN MATE- 
RIEL FIGE : 

• Le système d'exploitation de base est le MS- 
DOS (MICROSOFT) 2.0 répondant à toutes les 
caractéristiques pour lire les disquettes de don- 
nées de l'I.B.M. PC. Il est possible de faire « fonc- 
tionner » tous les compilateurs fonctionnant sous 
MS-DOS : PASCAL • C • FORTRAN • COBOL 


Les logiciels, s'ils ne « tournent » par immédia- 
tement sur le SPC-5000 peuvent être « recompi- 
lés » à peu de frais. 

Le système d'exploitation VENIX (VENTURCOM) 
licence du système UNIX (BELL LABS) System 
V nécessité 256 Ko de mémoire centrale multi- 
tâche, multilisateur (multiposte). Il dispose de 
toutes les capacités des grosses machines. Il peut 
très bien servir de poste de travail autonome intel- 
ligent qui dispose des disquettes 5 nl/4 et même 
de la mémoire à bulles. 



EASYPAC 

LE LOGICIEL INTEGRABLE 


La caractéristique la plus importante des logiciels 
contenus dans l'EASYPAC repose sur le fait qu'ils 
sont contenus dans une ROM de 512 Ko. Ces logi- 
ciels sont, à la demande, francophones ou anglo- 
phones (rien d'étonnant quand on sait qu'ils vien- 
nent du Canada). Les 512Ko sont a^ré 's comme 
une disquette. La vitesse de lecture est, par con- 
tre, très accélérée. L'EASYPAC comprend un 
traitement de textes, une feuille de calcul et un 
logiciel de communication. 

EASYWRITER pour traitement de textes est un 
logiciel professionnel complet et utilisant jusque 


, Fonctions MS-DOS* 
! pour reproduire 
mémoire 6 bullos 
•t disquettes. 



I Données stockées dans chomlsescte 
iurs I fichiers et fichiers de textes MS-DOS* 


dans les moindres détails les capacités du maté- 
riel SPC-5000 (des graissages écran-soulignés, 
inversons, vidéo graphiques...). Les textes sont 
aérés comme des documents que l'on peut for- 
mater ou reformater selon les besoins du moment 
présent. Toutes les facilités du traitement de textes 
y sont incluses. Le logiciel gère aussi l'imprimante 
interne, une imprimante branchée sur la 
RS-232C-V24, et ceci même en spooling. 
Chaque programme EasyPac est connecté à une 
unité centrale appelée « EasyMenu ». Un 
« Menu » est simplement une liste d'options qui 
apparaît sur l'écran et à partir de laquelle l'utili- 
sateur choisit les tâches qu'il veut exécuter. Les 
données produites par un programme peuvent 
être utilisées par un autre. Par exemple, les feuil- 
les de calcul produites par TEasyPlanner peuvent 
être incorporées dans les rapports EasyWriter II 
et envoyées sur un autre ordinateur avec l'Easy- 
Comm, ou les feuilles de calcul et les program- 
mes EasyPlanner peuvent être acheminés direc- 
tement et être utilisés ailleurs. 



C'est un logiciel de communication étroitement 
lié au matériel SHARP. Il utilise le matériel 
SHARP ou bien un modem sur RS 232C-V24 pour 
ses communications au réseau commuté PTT. Il 
peut être aussi utilisé en local pour transmettre 
des données vers un autre ordinateur et même 
simuler le terminal d'une unité centrale. 


EASY PLANNER 

ET LA FEUILLE 
DE CALCUL 


Feuille de calcul est un mot trop faible pour 
caractériser les possibilités de ce logiciel. Il s'ap- 
parente plutôt à un tableur interactif dont le tissu 
organique donne à l'utilisateur un outil à la puis- 
sance de son cerveau. 

Non seulement, il calcule, formate et s'émule, 
mais il se laisse programmer de façon simple et 
méthodique pour devenir un outil dirigé et com- 
plet. De plus, ces résultats et visualisations peu- 
vent être intégrés dans un document édité par 
EASYWRITER. De la même façon que ce dernier, 
EASYPLANNER permet d'utiliser toutes les spé- 
cialistes du matériel SHARP SPC-5000 pour pré- 
senter un interfaçage utilisateur des plus agréa- 
bles. 







Représentant : SPC-5000 / NSDOS 

Il gère l'agenda du représentant et d'autre part 
propose le suivi des dossiers clients et de la ges- 
tion des ventes. 


Compte-rendu opératoire : (médical) SPG-5000 
/MSDOS 

C'est un générateur de rapport opératoire pour 
la chirurgie digestive et biliaire il s'adresse au 
praticien qui a rarement le temps de dicter ou 
d'écrire. 


Vidéotex : SPC-5000 / MSDOS 

C'est un logiciel serveur qui transforme le SHARP 
SPC-5000 en répondeur télématique une voie 
accessible par Minitel. Il gère 50 abonnées iden- 
tifiés par codes. Il comprend un journal une 
messagerie. 


SHIPCOM : SPC-5000 / MSDOS 

Logiciel maritime qui propose les communica- 
tions par télex dans les 2 sens, la réception de 
messages NAUTEX automatique, le codage et 
décodage de morse, la réception et impression 
de cartes météo, le contrôle des rondes d'alarme 
installées à bord et la réception de radio signaux 
WWV. 


Multiplan : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-5600 
MZ-800 

Feuille de calcul électronique. 


Wordstar 3.3 : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-5600 
MZ-800 

Traitement de texte le plus répandu. 


Mailmerge : SPC-5000 

MZ-3500 
MZ-5600 
MZ-800 

Fichier pour faire des mailings ou courriers inter- 
facés avec Wordstar. 


Datastar : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-5600 
MZ-800 

Gestion de données et de fichiers. 


Infostar : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-5600 
MZ-800 

Gestion de fichiers organisée, sous forme de base 
de données. 


Et en plus. 


MSDOS: 


Reportstar : 


SPC-5000 / MSDOS 
MZ-3500 / CPM80 
MZ-5600 
MZ-800 


Système de gestion de fichiers : base de données. 


Emulateur VTIOO SPC-5000 / MSDOS 

Il transforme le SPC-5000 en un terminal VT100 
ou VT 102 de DEC. L'intérêt de ce logiciel per- 
met au portable SPC-5000 d'être connectable sur 
la plupart des ordinateurs moyens et gros systè- 
mes se trouvant sur le marché. 


Travelling appoint manager: SPC-5000 / 
MSDOS 

Gestion d'agendas électroniques. 


Harpagon : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-800 

Comptabilité. 


DBASE1I : SPC-5000 / MSDOS 

MZ-3500 / CPM80 
MZ-5600 
MZ-800 

Gestion de base de données. 


Super Writter II : SPC-5000 / MSDOS 
MZ-5600 

Traitement de texte. 


Snper Cale II : SPC-5000 / MSDOS 

MZ-5600 

Feuille de calcul électronique. 


Super Comm. : SPC-5000 / MSDOS 

Logiciel de communication en asynchrone. 


SPC-5000 

Système d'exploitation 

MZ-5600 


GW Basic : SPC-5000 / MSDOS 


Bascom : SPC-5000 / MSDOS 

MZ-5600 


Fortran 86 : SPC-5000 / MSDOS 

MZ-5600 


Pascal, C, Cobel : SPC-5000 / MSDOS 
MZ-5600 


Supersori i 


Venu : 


SPC-5000 / MSDOS 
MZ-5600 


SPC-5000 / Système d'ex- 
ploitation compatible 
UNIX. 




LISTE DES INSTRUCTIONS MZ 80 


BARCODE 


Voici un petit programme qui va vous permet- 
tre de générer des codes à barre EAN 1 3, sur 
l'imprimante du PC-5000 et qui pourront être 
relus par n'importe quel lecteur. On lance le pro- 
gramme en faisant RU N, puis on répond aux 
questions : Code, on donne le code du produit 
sur 12 caractères. Nombre, le nombre d'exem- 
plaires que l'on voudra imprimer (toujours des 
multiples de deux : 1 =2,2=2,3=4,4=4...). 
Logo : affichage d'un petit logo si vous faites 
un fichier dans lequel vous mettez un 0 ou 1 
suivant que vous voulez qu'un point soit allumé 
ou éteint. Nom : nom du produit portant le code 
indiqué. 

Après le PC-5 000, génère le dessin à l'écran 
pour le recopier sur l'imprimante. Ce pro- 
gramme renfermant l'algorythme de calcul, et 
de génération du code à barre EAN-1 3 il serait 
intéressant de l'adapter sur des PC-1 500 ou 
PC-1350. 

Alors à vos tables traçantes et envoyez-nous 
vos résultats, nous vous dirons si nous pou- 
vons les relire. 


10 REM XXXXXXXXX.XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

20 REM * Impression de codes barre sur le CE-510P * 

30 REM * I.S. ( c ) 1984 13/09/84 V. SI. 2 * 

40 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

50 REM 

60 KEY OFF: WIDTH 80:COLOR 11:CLS:DIM AS< 19) , BS(9> , CS(9, 2) :ON ERROR GOTO 380 
70 RESTORE 440: FOR 1*0 TO 9 : READ B$< I ) :NEXT:FOR J=0 TO 2 
80 FOR 1=0 TO 9 : READ CS(I,J):NEXT I,J 
90 DRAW ’COMl, 1C1R637D77L637Ü77" 

100 LÛCATE 3,26, 1:C0LQR 9:PRINT" Générateur de Codes Barres 
110 COLOR 3 : LOCATE 5, 15:PRINT"Code ”;:COLOR 11:INPUT ;AS 

120 IF VAL(A$X1E+1 1 OR LEN<ASK>12 THEN LOCATE 5, 10:PRINT STRING$<60, 32) :GOTO 1 
10 

130 COLOR 3: LOCATE 5, 48:PRINT’Nombre ”;:COLOR 11:INPUT ;QS:Q=VAL(QS) 

140 IF Q=0 OR Q>16 THEN LOCATE 5,46:PRINT STRING$<30, 32) :GOTO 130 

150 COLOR 3 : LOCATE 7, 15:PRINT"Lo*o ";:COLOR 11: INPUT ;BS 

160 OPEN B$ FOR INPUT AS #1 

170 FOR 1=0 TO 19 : INPUT#1 , A$( I ) : NEXT : CLOSE 

180 COLOR 3 : LOCATE 7, 48:PRINT”Nom ";:COLOR 11: INPUT ;CS 

190 CLS: IF BS*’ "THEN 220 

200 FOR 1=0 TO 19: FOR J=0 TO 125:PSET < J, I ) , VAL<MID$< A$<I ) , J+l , 1 ) ) 

210 PSET (J +320, I ) , VAL (MI DS (AS < I ) , J+l, 1 ) ) : NEXT J, I 
220 LOCATE 5,3,0:PRINT C$;:LOCATE 5,43:PRINT CS; : COLOR 3 
230 A=0:FOR 1=2 TO 12 STEP 2: A=A+VAL(MID$( A$, I, 1) ) :NEXT:A=A*3 
240 B=0: FOR 1=1 TO 11 STEP 2 :B=B+VAL <MID$<A$, 1,1)) :NEXT: A=A+B 
250 B=INT((A+9)/10)*10:A=B-A:AS=AS+RIGHTS(STRS(A), 1) 

260 LOCATE 7,6:PRINT AS; -.LOCATE 7,46:PRINT AS; 

270 X= 1 50 : XS= "101”: GOSUB 350:FOR 1=2 TO 7 

280 X$=C$ < VAL ( M I DS ( A$, I, 1 ) ) , VAL <MIDS(BS< VAL (LEFTS( AS, 1 ) ) ) , 1-1 , 1 ) > ) 

290 GOSUB 350 : NEXT : X$= *01010": GOSUB 350:FOR 1=8 TO 13 
300 XS=CS(VAL (MIDS(AS, 1 , 1 ) ) , 2) : GOSUB 350 : NEXT: X$=" 101 ’ :GOSUB 350 
310 FOR 1=1 TO INT<Q/2+. 5) : LPRINT ” " : LCOPY: LPRINT ’ ”:NEXT 
320 LOCATE 8, 58:PRINT’Pressez une touche."; 

330 IF INKEY$=" "THEN 330 
340 RUN 

350 L=LEN<X$) :FOR K=1 TO L:LINE (X, 0)-(X, 65-(L<>7)*10) , VAL(MIDS(XS, K, 1 > ) 

360 LINE (X+320, 0)-(X+320, 65-(L<>7)*10) , VAL(MIDS(XS, K, 1 ) ) :X=X+1 :NEXT:RETURN 
370 END 

380 IF ERL= 160 THEN LOCATE 7, 10-.PRINT STRINGS (60, 32) ; :BS=” " : RESUME 180 
390 IF ERL=310 THEN 410 
400 PR INT ERL, ERR:END 

410 BEEP:BEEP: COLOR 11:L0CATE 8, 33:PRINT"Mettez une feuille S.V.P."; 

420 IF INKEY$=" ” THEN 420 

430 LOCATE 8, 33:PRINT STRINGS (26, 32) ; : RESUME 310 
440 DATA ”000000", ”001011", "001101", "001110", "010011" 

450 DATA "011001", "011100", "010101”, "010110", "011010" 

460 DATA "0001101", "0011001". "001001 1 01 1 1 101 ", "010001 1 " 

470 DATA "0110001”, ”0101111", "0111011", "0110111", "0001011" 

480 DATA ”0100111", "0110011", "0011011", "0100001", ”0011101" 

490 DATA "0111001", "0000101", ”0010001", "0001001", "0010111" 

500 DATA "1110010", ”1100110", "1101100", "1000010", "1011100” 

510 DATA "1001110", "1010000", "1000100", ”1001000", "1110100” 
















SHARP 



MODE CONTINU 


COMMANDE 

INTERFACE 

MARCHE 


=? L.E H- U T E T s RR t> 1 O R C T X • I T E 
£MME ♦ 1 'RR I HUCE+ECNRT TYPE 
H I STOSRRMME 


EXPER I MENTA TEURS s Dû 
DATES 12 

NATURE ['E LH SOURCE RADIOACTIUE: RA 

NATURE DES RADIATIONS REÇUES PAR LE 3CINTILLATEUI 

DISTANCE SOURCE SC I NT I LLATEUR : 36MM 

METHODE CHOISIE: •: û=POPULATION, 1 =ECHANTILLON> : û 
NOMBRE DE MESURES 4 Ou 

DUREE DE LA MESURE: Û. 1 




SORTIE DES PARAMETRES 
-DUREE COMPTAGE 0,01 A 10 S 
- NOMBRE MESURES : N, 


COMMANDE INTERFACE 

> RAZ 

=> MARCHE 
TEMPO 4 
ARRET 


LECTURE 

FICHIER 



CHOISIR T PLUS PETIT 
OU ELOIGNER SOURCE 
RADIOACTIVE 



LECTURE VALEUR 
SORTIE A 
ET MOYENNE M 


> 255 > 


MEMORISATION DES VALEURS 
SORTIES (A (l,Y)| 
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Super math n'est pas à proprement parler un 
seul et unique programme, mais le rassemble- 
ment de huit routines mathématiques indépen- 
dantes les unes des autres. 

Vous obtenez le menu par RUN, le nom de la 
routine s'affiche. Siice n'est pas celle souhai- 
tée, pressez ENTER, la suivante s'affichera et 
ainsi de suite. Lorsque vous désirez vous ser- 
vir d'une routine dont le nom est affiché, 
appuyez sur n'importe quelle touche puis 
ENTER. 

Les huit routines sont : 

• DIVISION : 

Entrer les deux termes de la division comme 
vous le dirai l'ordinateur et celui-ci vous don- 
nera par groupes toutes les décimales du 
résultat. 

• FRACTION : 

Entrer un nombre décimal, et le PC vous le don- 
nera sous forme fractionnaire. 

• PGCD : 

Entrer deux nombres, et leur PGCD s'affichera. 

• PREMIER ? : 

Donner un nombre et le programme vous dira 
s'il est premier. 

• RES. EQUA. : 

Résolution d'équation du second degré en 
ax 2 + bx + c = 0. 

Entrer a,b,c et vous saurez les solutions si elles 
existent. 

• MODULO : 

Enter les deux termes d'une division et le reste 
vous sera donné. 

• CARRE MAGIQUE : 

Indiquer le nombre de côtés (impair) du carré, 
et le PC vous retournera la valeur de chacune 
des cases avec leurs coordonnées. 

• GRDE FACT. : 

Entrer un nombre supérieur ou égal à 69 et vous 
aurez sa factorielle approchée. 

A. OZANNE. 


GOTO " 2 " 

4 : I N P ü T " r b U D 7 " ? U * b ü T U 


5 : 1 N P U T "NOMBRE PREMIE 
R?" ? C 5 GOTO " 4 " 

6: INPUT " RES. EQUATION? 
" 5 C s GOTO " 5 

?! iNPüT " b R B h F P C T . " ? C 
: büTü " 6 " 

8: INPUT ‘■'MODULO?''' ? C s 


GOTO "7 

9 s I N P U T ‘‘CARRE MAGIQUE 
? M ? C s GOTO "8" 

18: GOTO 2 

13: " 1 " : CLEAR :PRINT " 
DIVISION" : PRINT " 
"?CHRS 31? "A/B"? 
CHR$ (93): INPUT *A?" 
5 A: INPUT "B?" 5 B 
28:0=109 

30: Q= INT (A/B):Z$=STR$ 
(Q) : IF LEN <Z$)<2 
LET Z$="8"+Z$ 

40: PRINT "->" 5 Z$+(CHR$ 

( (K=8)*44) ) ?" : NO: " ? K 
59 : A=C+ ( A - Q * B ) : K=K+2 
70: GOTO 30 

180: "2" CLEAR :PRINT "FR 
ACTION DE F": INPUT " 
N? " 5 F : B= 1 : C= 1 : D=8 : G= 
F : E= INT (G): A=E 
1 10: IF ABS (F-A/BH 10 A -1 
8 BEEP 1 : PRINT A?"/" 
? B: GOTO "2" 

120: G=1/(G-E) : E= INT (G) 
: H= A^E+C : C=A: A=H 
130: H=B*E+D: D=B: B=H: GOTO 
110 

200: "3" PRINT "PGCD...": 
PRINT "NI >N2. . . " : 

INPUT " >N1 M 5 NI : 

INPUT " — >N2"?N2 
210: IF N2=0 GOTO 280 
220: Q= INT (N1/N2) 
238:R=N1-N2*8 
240: N1=N2: N2=R 
250: GOTO 218 


260: BEEP isPRINT "PGCD : 
"5 NI 

278: GOTO 289 

300: "4" PAUSE "NBRE F’REM 
IER?" 

381: CLEAR : A=2: B=3: C=5: B 
=7: E=1 1 : F=13: G=17: H= 
19: 1=23: J=29: K=3i 
382: INPUT * N = "?N 
303: IF (N>0>*(N= INT N)= 
0 BEEP 4: GOTO 382 
384: FOR X=1 TO 3:M=A(X): 
IF n / M = INT (N/M) 
BEEP 2: PRINT "PAS PR 
EM 1ER" : PRINT "DIVISE 
UR : " ? M: GOTO "4" 

385 : N EXT X 

3 9 6 : L = 3 8 * I N T ( ( T N - 7 ) / 3 8 


387: FOR I4=L TO 9 STEP -3 
0: P=L-I4 

388:F0R Z=4 TO 1 1 : M=P+A< 


7 ) 


309: IF N/M 

= T N 7 i ‘ N / M ''i 

AND N< 

>M BEEP 2: 

PRINT 

"PAS PREMIER ! " 

SPRINT 

"DIVISEUR: " ? M 

: POKE 

&46F3jPEEK &46 

F3-32: 

b ü T U " 4 

310:NEXT Z 


3 1 1 : NEXT 14 


312: BEEP 2 

SPRINT N? ": PR 

EMIER" 

: GOTO "4" 

488 : " 5 " CL 

EAR SPRINT "RE 


SOLUTION. .."SPRINT " 
D EQUATION :" 

418: PRINT "TELLE QUE ... 
" SPRINT "A * X 2+B* X + C 
= 0 V 

420: INPUT " A: "5 A: INPUT 
" B:"? B: INPUT " C:"? 
C 

4 3 8 : E = ( B '■‘' , 2 ) - 4 : + : ( A * C ) 

435: BEEP 1 

448: IF E<8 THEN PRINT "P 
AS DE SOLUTION": END 
450: IF E=8 LET X=(-B)/(2 
:4c A > : P R I N T "1 SOLUTIO 
N: " ? X: END 

468:IF E>8 LET X1=(-B+TE 
)/(2*A) : X2=(-B-TE)/( 
2+A) : PRINT "2 SOLUTI 
ONS. . . " : PRINT "Xl="? 
XI SPRINT "X2=" 5 X2 
478: GOTO 488 
680: "7" CLEAR : PRINT " 
MODULO" SPRINT "D 
UNE DIVISION" : PRINT 
"TELLE : Y/X" 

610: INPUT Y="? Y: INPUT 
" X="?X 

620: R= INT (Y/X) 

630: M=‘ï'-(X*R> 

648: PRINT "MOI) DE "5 Y? "/ 



bu TU ’ î 

Î800Ï V 6 M PAUSE "GRDE FA 
CTÛRIELLE" 

1010s INPUT V Z= W ; Z 
1020ÜF CZ>=23)*(Z< 1E9) 
*<Z= INT Z)=0 
PRINT "VERIFIEZ Z" 
: GOTO 1010 
1100:0= INT LOG Z 
1 1 10: B=Z/10 rt C 
1 120: E=C*Z+ INT <C/2) 
1130:F=C/2- INT f C.--2> 

1 140: G= INT (Z* (LOG D-l 
■■■'LN 10)) 

1 150: H=Z*(LOG D-l/LN 10 
) - G 

i 160: I = .5*LÜG <2*I*D) 
1170: J=(1/12/Z-1/360 /Za 
3’+ 1 / 1 2 6 0 / Z 5 ) / L H 1 
0 

1 1 8 0 : K = INT (F+H+I+J) 

1 190: L=E+G+K 
1200:)1=F+H+I+J-K 
1210s N=10A!«t 
1220: Q=9- INT LOG L 
1230: P=10 ft Q 

1240: Q=< INT <N*P+.5))/ 
P 

1250: IF Q= 1 0 LET Q=1 : L= 


SHARP 



iBEEP 1 : PRINT "Z!=. 

PRINT Q! 

PRINT "... E "5L 
: GOTO 1010 
i * 8 " PAUSE CARRE 
MAGIQUE" 

: CLEAR 

: INPUT "COTE?"? N 
: IF INT (N/2)=N/2 
BEEP l: PAUSE "IMPA 
IR S.V.P. ":GÛTQ 20 
05 

i A= ( ( N- 1 ) --'2 ) - 1 : B=N- 

FOR Y=1 TO N 
FOR Z=1 TO N 
A=A+1 : B=B+1 
IF A>N-1 LET A=0 
IF B > N — 1 LET B=0 
X=A*N+B+1 : S=S+X 

print y;"/";z;">"; 

: NEXT Z 
: B=B-2: A=A-1 
: NEXT Y 

:S=(S/N): PRINT, "TOT 
AL ( V . H . B ) " ! S 
: INPUT "UN AUTRE <0/ 

n ) " ; o$ 

: IF 0$="Û" GOTO "3" 
: EHD 

: REM ALAIN OZANNE 
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CADRAN SOLAIRE 

POURQUOI REALISER UN CADRAN SOLAIRE ? 


Pour le plaisir, l'esthétique, le retour aux sources, pour surpren- 
dre... La précision que l'on peut attendre est de l'ordre de la 
minute pour un cadran solaire soigné et un observateur averti, 
mais ce n'est pas le but recherche. 

Les cadrans solaires peuvent prendre des aspects très variés, 
être verticaux, horizontaux, etc., mais ils sont tous basés sur le 
même principe : l'ombre d'une tige ou style replace l'aiguille 
des heures d'une montre dont le cadran est muni de gradua- 
tions... rarement équidistantes. 


VALEURS A CONNAITRE 
POUR TRACER UN CADRAN 


Nous nous limiterons à l'exposé du cadran situé 
sur un mur vertical dont un exemple est donné 
sur la figure 1 . Pour un cadran solaire vertical, 
il ne faut que deux paramètres qui sont : 

• la latitude du lieu L 

• l'orientation I, définie sur la figure 2. 

Pour un cadran horizontal il suffirait d'entrer 
l'angle complémentaire de la latitude au lieu de 
la latitude elle-même. L'axe horizontal nord-sud 
remplace la verticale, tout le reste demeure 
identique. 



Dans le cas d'un mur incliné quelconque (non 
vertical), les calculs ne seraient pas beaucoup 
plus compliqués, mais la détermination des 
deux angles caractéristiques de l'orientation du 
mur n'est pas très simple. 

Un cadran vieillit très peu. Les angles horaires 
ne changeront pas tant que la définition de 



l'heure restera ce qu'elle est. Quant à la cor- 
rection de l'équation du temps et les hyperbo- 
les (nous verrons plus loin de quoi il s'agit) elles 
changent avec les siècles mais de manière 
insensible sur un cadran. Les valeurs adoptées 
pour les paramètres astronomiques sont cel- 
les de l'an 2000. 

SIGNIFICATION DES LIGNES 
ET COURBES DU CADRAN 

La figure 1 représente le plan d'un cadran 
solaire complet. On distingue : 

• des droites qui sont les droites horaires, 

• un grand huit qui correspond aux corrections 
saisonnières, 

• des courbes qui sont des hyperboles. 
Examinons d'un peu plus près ces trois types 
de courbes. 

LES DROITES HORAIRES : 

La verticale ou méridienne correspond au midi 
solaire moyen qui n'est pas le midi des mon- 
tres. Il faut ajouter l'heure légale et tenir compte 
du décalage correspondant à la longitude du 
lieu (le programme se charge de donner la 
valeur de la correction). 

Les autres droites indiquent l'heure solaire 
moyenne. Elles sont symétriques autour de la 
verticale si le cadran solaire est orienté plein 
sud, dissymétrique si le cadran est désorienté ; 
il y a plus de graduations (d'heures) pour le 
matin si le cadran est partiellement tourné vers 
l'est et vice-versa pour l'après-midi et l'ouest. 
On pourrait très facilement concevoir un cadran 
qui tienne compte directement de la longitude 
du lieu. Mais il faut rendre au soleil ce qui est 
au soleil et un cadran solaire indique toujours, 
en première lecture, l'heure solaire locale. 

LE GRAND HUIT : 

Le soleil ne passe pas régulièrement au sud 
tous les jours à la même heure. Il présente un 
retard ou une avance qui atteignent un quart 
d'heure en février et en novembre (cf. figure 3). 
Le grand huit présent sur le cadran solaire 
(fig. 1 ) est là pour tenir compte de ces irrégu- 
larités. La correction est portée tous les dix 
jours de chaque mois, les 1, 1 1 et 21 et appa- 
raît renversée et déformée par rapport à la 
figure 3 à cause des projections . 

Pour le premier mars par exemple, le retard est 
égal à 1 2 minutes : il faut ajouter 1 2 minutes 
à l'heure lue directement sur le cadran. Si le 
point avait été à gauche de la verticale il aurait 
fallu soustraire cette correction. 




LES HYPERBOLES : 

Elles ne sont pas nécessaires à la lecture de 
l'heure mais contribuent à l'esthétique du 
cadran. Elles représentent le trajet moyen suivi 
par l'ombre de l'extrémité du style durant une 
journée. Evidemment on ne trace pas autant 
d'hyperboles qu'il y a de jours dans l'année ! 
Pour un jour quelconque, l'ombre se glissera 
entre les deux hyperboles qui l'entourent. L'in- 
tersection avec le grand huit donne la correc- 
tion journalière. 

Trois hyperboles présentent une particularité : 

• celle des équinoxes (21 mars et 23 sep- 
tembre environ) qui est une droite, 

• celle du solstice d'été (environ 21 juin) qui 
est la limite maximum de l'ombre du style ; on 
peut donc limiter les droites horaires à cette 
hyperbole, 

• celle du solstice d'hiver (environ 22 décem- 
bre) qui est la limite minimum de l'ombre du 
style. 



RESUME DE LA LECTURE DE L'HEURE 

* Lire l'heure (et les minutes par interprétation) 
sur les lignes horaires, 

* Effectuer la correction du grand nuit : 

- ajouter sur la portion à droite de la verticale, 

- retrancher sur la partie gauche, 

* Ajouter (ouest Greenwich) ou retrancher (est 
Greenwich) la longitude exprimée en temps, 

* Ajouter l'heure légale ( + 1 ou + 2 en Europe 
de l'Ouest) 

Sur la figure 1 si l'observation a été faite le pre- 
mier mars sur un cadran situé à Grenoble 
l'heure est égale à : 


10 h 45 mn (droites horaires) 

+ 00 h 1 2 mn (correction saisonnière) 
- 00 h 23 mn (longitude est) 

+ 01 h 00 (heure légale) 



CE QUE PEUT FAIRE LE PROGRAMME 


ttsetfécofnpose en cinq parties qui sont repé- 
rées par : « HEURES », « HYPERBOLES », 
« GRAND 8 », « STYLE » et « LONGITUDE ». 

HEURES : 

• tracé des droites horaires avec un intervalle 
de temps choisi par l'opérateur (30 minutes est 
un bon incrément). 

Le calcul donne non seulement l'angle mais 
aussi l'intersection de la droite horaire avec le 
bord correspondant du cadran supposé rectan- 
gulaire du moins pour la construction de 
l'épure. 

Les variables sont définies sur la figure 4. 

HYPERBOLES : 

• calcul de l'intersection de sept hyperboles 
avec les droites horaires. La donnée S est égale 
à la distance du centre du cadran à l'intersec- 
tion (cf fig 5). 

Si l'on veut moins ou plus d'hyperboles il faut 
modifier les lignes 130 et 135. Par exemple 
pour obtenir simplement la droite des équinoxes 
et les deux hyperboles des solstices il faudrait 

prrirp * 

130 FOR N = - 1 TO 1 
135 D=N*C 

Il se peut que certains points sortent du cadran 
car pour simplifier le test a été écrit S < U + 


V au lieu de S < SÛR (UU + VV/4). Ceci n'a 
pas d'importance et peut au contraire aider au 
tracé des hyperboles (ce test ne doit pas être 
supprimé car le format de sortie pourrait ne pas 
être suffisant pour S). 



GRAND 8 : 

• tracé du grand huit à raison de un point tous 
les 1 0 jours soit pour les 1 er , 1 1 e et 2 1 e jours 
de chaque mois. 

Si l'on veut un point tous les cinq jours, chan- 
ger la ligne 230 en : 

230 FOR J = 1 TO 26STEP 5. 

Pour chaque jour concerné on obtient les coor- 
données X et Y des points du grand huit. Atten- 
tion au signe de Y : Y ^>0 est situé à droite 
de la verticale. 

STYLE : 

• aide au positionnement du style par rapport 
au cadran. 

On dispose des valeurs de la projection de l'ex- 
trémité du style soit : H la « hauteur » en des- 
sus du cadran et X et Y les projections sur les 
axes X et Y suivant les conventions de la 
figure 4. 

LONGITUDE : 

• calcul de la correction de longitude pour évi- 
ter toute ambiguité, notamment sur le signe. 

ATTENTION : 

Les quatres premières parties ne sont pas indé- 
pendantes. Le programme est linéaire et il ne 
faut pas sauter d'étape. Par contre la partie 
« longitude » est absolument indépendante. 





zéro) n'intervient qu'aux lignes 210, 240 et 
250 du programme. 

LA CONSTRUCTION DU CADRAN 

Pour ce qui est du matériau à chacun d'imagi- 
ner : métal, bois, marbre etc. 

Un point crucial est le positionnement du style. 
Le style EST PARALLELE A L'AXE DE ROTA- 
TION DE LA TERRE (axe Nord Sud). Cette défi- 
niton quelque peu théorique se traduit par le 
fait que l'angle entre la verticale et le style est 
égal à 90 - L où L représente la latitude du lieu. 
Attention ceci n'est pas l'angle entre le cadran 
et le style mais l'angle entre la verticale et le 
style ; ces deux angles ne sont égaux que pour 
un cadran orienté plein sud. Le programme 
donne toutes les indications pour positionner 
le style. 

DETERMINATION DE 
L'ORIENTATION D'UN MUR 

L'orientation du mur doit être déterminée avec 
une précision de l'ordre de quelques dixièmes 
de degrés. On peut effectuer les calculs avec 
un angle approché et ajuster ensuite la posi- 
tion du cadran par rapport au mur en compa- 
rant l'heure indiquée avec l'heure de la montre. 
Sinon, il y a plusieurs façons, de connaître 
l'orientation du mur (angle entre la perpendi- 
culaire au mur et le sud local) : 

• On possède un plan suffisamment précis du 
bâtiment, 

• On a à sa disposition une boussole précise 
et on connaît la déclinaison magnétique du lieu 


1 « CS » 

2 PRINT « CADRAN SOLAIRE » 

3 PRINT « ANGLES : DEGRES DECIMAUX » : DEGREE 
10 PRINT «HEURES» 

20 INPUT «LATITUDE = » ; L , « ORIENTATION (0 + ,E,-)= » ; I 

25 U = 1000 : V=U : INPUT « HAUTEUR CADRAN (MM)= » ; U , « LARGEUR = » ; V 

30 W = ATN (TAN I / SIN L) 

31 K = COS L * COS I 

32 B = ATN (K * TAN W) 

40 INPUT « DELTA TEMPS (MINUTES) = » ; M 
50 IF I = O LET Q = 360 - M : P = - Q : GOTO 60 

55 Q = ATN (TAN (90 - B) / K) - W + 180 * (B < 0) 

56 Q = M * INT (4*Q/M) 

57 P = Q - 720 + M 

60 FOR G = P TO G = 0 STEP M 

61 F = G/4 - W 

62 A = A = ATN (K * TAN F ) + B 

63 A = A + 180 * SGN F * (ABS F > 90) 

65 H = DMS (G/60 + 12) 

70 Y = U * TAN A : IF ABS Y < V/2 LET Z$ = « Y= » : GOTO 80 

71 Y = ABS (U*V/2/Y) : Z$ = « X = » 

80 PRINT USING «###■##» :«H= »;H 

85 PRINT USING « MH » : « A = » ; A, Z$ ; Y 
90 NEXT G 

100 PRINT « HYPERBOLES » 

1 10 Z = U/3 : INPUT « LONG STYLE (MM)= » ; Z 

120 R = TANACSK 

125C = 23.44 

130 FOR N = - 3T0 3 

135 D = N * C / 3 

140 FOR G = PTOÜSTEPM 

145 S = ATN (R * COS (G/4 - W) 

150 IFS < D GOTO 165 

155 S = Z * COS D / SIN (S - D) 

160 IF S < U + VGOTO 170 

165 IF G < O GOTO 190 

166 IF G > OGOTO 195 
170 H = DMS (G/60 +12) 

1 80 PRINT USJNG « jfM'M » ; « H = » ; H, « S = » ;S 
190 NEXT G 
195 NEXT N 

200 PRINT « GRAND 8 » 

210 E = 0.01671 :Û = 3:P = 77:Q = 1.0146 
220 FOR M = 1 TO 12 

22.1 N = 31*M - 31 - 3* (M > 2) - (M > 4) - (M > 6) - (M > 9) - (M > 1) 

230 FOR J = 1 T0 21 STEP 10 

231 T = N + J - 0.5 

240 FOR F = 1 TO 3: U = (T-01/Q + 360*E/2 TT * SIN U : NEXT F 

241 V = 2 * ATN (TAN (U/2) W d-EI/d +E))) 

242 G = V - P : F = ATN (TAN G * COS C) + 180 * (ABS G > 90) 

250 H = V - (T — 0)/Q + F - G 

255 D = ASN (SIN C * SIN G) 

260 A = ATN (K * TAN (H - W)) + B 

265 S = ATN (R * COS (H - W)) 

266 S = Z * COS D / SIN (S - D) 

270 X = S * COS A : Y = S * SIN A 


280 PRINT USING «###»; «J = » ; J, « M= » ; M 

285 PRINT USING «#####■# » ; « X= » ; X, « Y= » ; Y 

290 NEXTJ 

295 NEXT M 

300 PRINT «STYLE» 

310 H = K * Z : Y = H * TAN I : X = Z * SIN L 

320 PRINT USING «$## ■# » ; « X = » ; X, « Y = » ; Y, « H = » ; H 

400 PRINT «LONGITUDE» 

410 INPUT « DEGRES =0, GRADES = 1 ?» ; U 

420 INPUT « GRENNWICH=0, PARIS = 1 ?» ; V 

430 INPUT « LONGITUDE (0+,E-)= » ; W 

440 IF U = 1 LETW = 0.9 * W 

450 W = W - 2.337 *V 

460 M = ABS (4*W) : S = 60 * (M - INT M) 

470 IF W > 00 LET A$ = « AJOUTER » : GOTO 490 
480 A $ = «ENLEVER» 

490 PRINT USING «(I fl# » ; A$ ; M ; « MIN » ; S « S » 


(elle est portée sur la plupart des cartes). Cette 
méthode permet de mesurer avec une préci- 
sion de l'ordre du demi degré. 

• On se munit d'une carte 1/50000® ou 
1 /25000 e et, en visant dans l'alignement du 
mur (ou d'un mur faisant un angle connu avec 
le mur du cadran) un repère particulier situé suf- 
fisamment loin, on lit directement l'angle 
recherché sur la carte. Cette opération devient 
très simple si on possède un théodolithe. 

• Elégance suprême, on utilise le soleil lui- 
même. Quand cette méthode est possible c'est 
de loin la plus précise (quelques centièmes de 
degrés) ; elle est développée ci-dessous. 

ORIENTATION D'UN MUR 
GRACE AU SOLEIL 

L'astronomie permet de calculer à tout instant 
l'azimut d'un astre c'est-à-dire sa direction par 
rapport au nord. Pour obtenir l'orientation d'un 
mur il suffit donc d'observer le passage d'un 
astre dans le prolongement du mur. Le pro- 
gramme du cadran solaire donnant les gran- 
deurs nécessaires pour connaître la position du 
soleil, nous allons l'exploiter pour déterminer 
l'orientation d'un mur. 

Il faut donc observer, un jour quelconque, le 
passage du centre du soleil dans le prolonge- 
ment du mur. L'heure doit être notée à quel- 
ques secondes près (en deux secondes le soleil 
tourne en moyenne d'à peu près un centième 
de degré) et doit être exprimée en temps uni- 
versel (soustraire une heure l'hiver, deux heu- 
res l'été). 

Le centre du soleil n'étant, hélas, pas matéria- 
lisé, une bonne approximation consiste à pren- 
dre le temps médian entre les passages des 
deux bords (*). 

Il est quelquefois possible d'observer deux pas- 


sages dans l'alignement du mur, un premier le 
matin et un second l'après midi si le mur n'est 
pas trop éloigné de l'orientation sud et si l'ob- 
servation a lieu au printemps ou en été. Il suf- 
fit alors de noter les temps de passage tl le 
matin et t2 l'après midi ; on peut alors, sans 
se soucier du centre du soleil, prendre l'appa- 
rition du premier rayon du soleil le matin et la 
disparition du dernier rayon l'après midi (ou la 
disparition et l'apparition). 

(*) On peut aussi effectuer les calculs avec 
l'heure de passage d'un des deux bords et ajou- 
ter (ou soustraire) ensuite l'angle correspon- 
dant à la projection horizontale du demi diamè- 
tre solaire : sa valeur en degrés est égale à 
0.267/COS (h) où h représente la hauteur du 
soleil en dessus de l'horizon. 

Il reste maintenant quelques calculs d'astrono- 
mie à effectuer pour obtenir l'azimuth du soleil 
au moment du passage, ces calculs demandent 
de connaître l'équation du temps H c'est-à-dire 
l'avance ou le retard du soleil) et la déclinai- 
son D, nécessaire dans le cas de l'observation 
d'un seul passage. 

Nous irons chercher ces valeurs dans la partie 
« grand huit » du programme pour le jour J et 
le mois M de l'observation. Pour ce faire effec- 
tuer les yeux fermés et en mode calcul (RU N) 


les séquences suivantes (*) : 

L = latitude (degrés décimaux) ENTER 

C = 23.44 ENTER 

RUN 210 ( ENTER 

attendre quelques secondes ou l'affichage 
J=, M = 

BREAK 

M = (mois de l'observation) ENTER 

RUN 221 ENTER 

attendre quelques secondes l'affichage 
J = , M = 


% 


BREAK 

J = (jours de l'observation) ENTER 
RUN 231 ENTER 

attendre l'affichage J = , M = 

BREAK ’ 

L'équation du temps H et la déclinaison D sont 
maintenant en mémoire machine. 

La longitude en degrés décimaux doit être con- 
nue. Si on ne la connaît pas, exécuter RUN 400 
et répondre aux questions. La longitude W est 
alors automatiquement stockée en mémoire 
machine. 

Tout est prêt pour calculer l'orientation du mur. 
Exécuter toujours en mode calcul (RUN) les 
séquences suivantes (pour les temps , expri- 
més rappelons le en temps universel, mettre 
un point décimal après les heures puis écrire 
les minutes et les secondes : exemple 
14.2312. 

Pour l'observation d'un seul passage du soleil : 
T = 15 * DEG (tl) 

T = T- H- W-180 
A = ATN (SIN T (SIN L * COS T - COS L 
* TAN D)) 

A est l'azimut de l'astre. 

Si A est positif l'angle cherché I est donné par : 

I = A - 90 

Si A est négatif 

I = A + 90 
Pour deux passages du soleil : 

T = 15 * DEG (tl) 

U = 1 5 * DEG (t2) 

I = ATN (SIN L * TAN ( (T + U)/2 - H - W) 

LES EQUATIONS DU CADRAN SOLAIRE 

LIGNES HORAIRES 

Si l'on était au pôle nord, le cadran solaire le 
plus simple serait une plaque horizontale munie 
en son centre d'une tige verticale. L'ombre de 
la tige effectuerait (6 mois par an) un tour com- 
plet du cadran à raison de 360/24 = 1 5 degrés 
par heure. Suivant la définition de la figure 4, 
on peut écrire : 

A = H 

où H, exprimé en degrés, est compté à partir 
du midi local d'ailleurs totalement arbitraire aux 
pôles. 

Ce type de cadran aux graduations uniformes 
est tout à fait réalisable quelle que soit la lati- 
tude L : la plaque n'est plus horizontale mais 
inclinée de façon à être perpendiculaire à la tige 
ou style qui est, rappelons-le, parallèle à l'axe 
nord sud de la terre. Au printemps et en été 
l'ombre est en dessus du cadran, en automne 
et en hiver elle est située en dessous. 



Pour les cadrans horizontaux et verticaux il faut 
effectuer une projection. 

Dans le cas d'un cadran horizontal la relation 
entre l'angle et l'heure devient : 
tg A = sin L * tg H 

(cette relation conduit à A = H aux pôles où 
la latitude L est égale à 90 degrés). 

Si le cadran est vertical, et orienté plein sud, 
la formule devient : 
tg A = COS L * tg H 

Si ce cadran vertical n'est pas orienté plein sud 
(cf fig 1 ), tout se passe comme s'il y avait un 
décalage horaire W défini par : 
tg W = tg I / sin L 

Il correspond à ce décalage horaire un bascu- 
lement angulaire B du cadran qui répond à la 
relation : 

tg B = sin I / tg L 

Ce décalage horaire et le basculement sont par- 
faitement visibles sur la figure I. 

L'angle A est alors défini par : 

tg (A -B) = cos L * cos I * tg (H-W) (1) 


HYPERBOLES 

La figure 6 définit les grandeurs nécessaires au 
calcul. 

Pour une heure choisie H l'angle A est donné 
par la formule ci-dessus. 

L'angle S se calcule par la relation : 
tg S = tg L * cos (H -W) / cos W (2) 
et la distance s s'exprime par : 
s = Z * cos D/ cos (S-D) ((3) 

Remarque : pour H = O, S = L 

GRAND HUIT 

Le programme lui-même fait appel à des notions 
de mécanique céleste qui sortent de ce cadre. 
On peut cependant donner ici une expression 
approchée de la déclinaison du soleil et de son 
avance (ou retard) journalier. 

Pour la déclinaison en degrés : 

D = 23.44 * sin {(T- 77)/1 .01 5) 
où 23.44 représente l'obliquité de l'écliptique 
et T représente le nombre de jours comptés à 
partir du premier janvier de l'année en cours. 



HEURES 

HYPERBOLES 

GRAND 8 

A 

Angle ombre / verticale 


" 

B 

Décalage angulaire dû 




désorientation 


" 

C 


Inclinaison écliptique 

" 

D 


Déclinaison 

n 

E 



Excentricité 

F 

Heure décalée 


Incrément puis Angle Horaire 

G 

Heure / midi local (en minutes) 


Longitude écliptique 

H 

Heure / minuit local (h. mn. sec) 


Equation du temps (en degrés) 

1 

Orientation (ouest >0, este) 



J 



Jour du mois 

K 

Facteur de project. 


" 

L 

Latitude (deg) 

. . n 

" 

M 

Incrément de temps (minutes) 


Mois 

N 


Incrément 

Nombre de jours des mois écoulés 

0 



Passage au périgée (jours/1 er 




janvier 

P 

Première heure possible 




(minutes) 

u 

Longitude du périgée 

Q 

Dernière heure possible 

n 

365.256363 / 360 

R 


Facteur constant pour calcul 




ombre 

" 

S 


Angle style / ombre puis 




longueur ombre 

" 

T 



Temps à 12 h / 1 er janvier 

U 

Hauteur cadran rectantulaire 




(mm) 

n ; . 

Anomalie excentrique (Képler 

V 

Largeur totale cadran 




(U+V<9999) 

" 

Anomalie vraie 

W 

Décalage horaire du 




désorientation 


" 

X 



Projection X de l'équation du 




temps 

Y 

Intersection ligne horaire / bord 


Projection Y de l'équation du 


cadran 


temps 

Z 

"X" ou "Y" 

Longueur style 



à partir du premier janvier de l'année en cours. 
Le chiffre 77 représente le jour du printemps 
et le facture 1 .01 5 transforme les jours en 
degrés ( = 365.25/360). La précision est de l'or- 
dre de quelques dixièmes de degrés. 
L'équation du temps quand à elle s'exprime 
approximativement par : 

H = 460 * sin ((T -31/1.01 5) - 592 * sin 
(2*(T-77)/1 .01 5) 

H est donné en secondes de temps. Pour obte- 
nir des degrés il faut diviser H par 240. Le chif- 
fre 3 correspond au passage du périgée, 460 
à deux fois l'excentricité de l'orbite terrestre, 
et 592 au carré de la tangente de la moitié de 
l'obliquité de l'écliptique. La précision est de 
l'ordre de 10 secondes de temps. 

Afin d'être compatible avec les conventions du 
programme H est positif si le soleil est en retard 
(c'est le temps qu'il faut ajouter pour obtenir 
l'heure exacte) et négatif si le soleil est en 
avance. 

H et D étant connus on détermine l'angle A à 
l'aide de la relation (1) et la longueur s de la 
projection à partir des formules (2) et (3). 


Monsieur G. Vincent est également l'au- 
teur de NAVIGATION ASTRONOMIQUE 
paru dans le SHARPENTIER N° 10. Nous 
lui adressons tout particulièrement nos 
remerciements et félicitations pour la qua- 
lité rédactionnelle et technique de ces 
deux articles. 


CARTES MEMOIRES DES PC 


Ce mois-ci nous passons en revue 
la carte mémoire de tous les PC 
y compris la zone de mémoire 
vidéo. La prochaine fois, nous 
verrons en détail la zone RSV, les 
variables fixes et dimensionnées, 
la zone programme et la cons- 


• Dans la série 1245/125x, nous prenons le PC-1251 
comme référence. 

PC-1245 : 

Il n’y a pas de zone RSV, le début de la Ram est 
en &C000. Et la Ram vidéo est plus courte : 2 x 40 
octets. 

PC-1250 : 

(TANDY) Zone RSV de &C000 à &C030 et zone pro- 
gramme à partir de &C031. 


traction d’une ligne BASIC ; nous 
donnerons donc les tables des 
instructions et les différents poin- 
teurs système. D’ici là, travaillez 
bien et faites-nous part de vos 
découvertes. 


PC-1253 : 

Ram programme de &2000 à &2800 (RSV comprise). 
Données et variables à partir de &C000H. 

PC-1255 : 

La zone RSV se situe de &A000 à &A030 et la 
mémoire programme de &A031 à... 

• Dans la série PC-1260/61, la carte est presque 
commune. 


PC-1260 : 

La Ram commence en &5800, donc ce qui est indi- 
qué en &4000 pour le PC-1261 est reporté en &5800 
pour le 1260 (zone tableur variant par pas de 128 
octets). 


RAM VIDÉO 
PC-1251 : 

Deux parties de &F800 à &F83B et de &F840 à 
&F87B. 

Indicateurs vidéo : &F83C et &F83D. 

Voir bulletin n° 7 pour de plus amples renseigne- 
ments sur la gestion de la Ram vidéo. 

PC-1261 : 

Quatre parties de &2000 à &203B, de &2800 à 
&283B, de &2040 à &207B et de &2840 à &287B. 
Indicateurs vidéo : &203D et &207C. 

PC-1350 : 

En vingt parties. 

Indicateur vidéo : &783C. 

Il est à noter que les poids forts des adresses de 
la Ram vidéo s’incrémentent de 2 par colonne, de 
gauche à droite, et que les poids faibles ne varient 
pas d’une colonne à l’autre. 























RAM 

octet F83C 

INDICATEURS 

octet F83D 

Ram 

Vidéo 

PC-1261 


RAM 

octet 203D 

INDICATEURS 

octet 207C 


Ram 


Vidéo 


Entete mémoire 


Ram programme 
utilisateur 


Variable Z-A 


Mémoire Système 


Mémoire Reserve 
144 octets 


Mémoire Vidéo 


7 6 5 4 3 2 1 0 




F800 à F83B F840 à F87B |jgne 


bit 7 6 5 4 3 2 1 0 

DEF SHIFT SMALL |ft+| [PRINT 
??? ERROR GRAD RAD DEG 

2000 à 203B 2800 à 283B hJ^ 

2040 à 207B 2840 à 287B ^ 




idêo 

7200 à 721 D 

7400 à 741 D 

7600 à 761 D 

7800 à 781 D 

7240 à 725D 

7440 à 745D 

7640 à 765D 

7840 à 785D 

721E à 723B 

741 E à 743B 

761 E à 763B 

781 E à 783B 

725E à 727B 

745E à 747B 

765E à 767B 

785E à 787B 


NOTICE 
iU DE SIM 


« Le jeu de SIM, c'est bien... 
quand on sait y jouer » grave 
lacune de notre bulletin n° 10 
que nous réparons derechef. 


MODE D'EMPLOI DU JEU SIM 

Ce jeu se joue sur un terrain constitué de 8 
points numérotés de 1 à 8 et disposés ainsi : 


Le but du jeu est d'obliger l'adversaire à for- 
mer un triangle A .Chaque joueur joue avec 
une couleur différente. Il faut en effet, à cha- 
que tour tracer une ligne entre deux points, non 
déjà reliés, sans jamais former un triangle avec 
des traits de la même couleur. 

A la question : A TOI DE JOUER 
répondre en tapant le chiffre correspondant au 
point de départ, puis celui d'arrivée. Si vous 
tapez 0, le programme vous proposera un coup. 


® ® 

& © îi ® ® ® ^ ® ® ® 





































Une fois de plus voici un outil de 
travail sérieux pour tous ceux 
qui s'intéressent au langage 
machine. Il est écrit sur PC 
1251, mais peut servir de sup- 
port pour une adaptation sur 
une autre machine. A cette fin. 


nous fournirons la prochaine fois 
un désassemblage commenté de 
la partie LM composant cet 
utilitaire. 

Bien entendu nous attendons 
tous vos travaux. 

Bon LM. 


LISTE ET DESCRIPTION DES FONCTIONS MODE D'EMPLOI 


1.1 NETTOYEUR : permet la mise à zéro de 
blocs de mémoire, jusqu'à 256 octets. 

1.2 DUMPER/CORRECTEUR : permet la lec- 
ture en hexadécimal du contenu de l'ensem- 
ble du champ mémoire (0 à FFFF) offre la 
même rapidité et les mêmes fonctionnalités que 
l'éditeur BASIC sur un programme, déplace- 
ment curseur 1 1 x , modification, insertion, 
delete... Permet le dump automatique sur impri- 
mante par blocs de 256 octets. 

1.3 MONITEUR D'EXECUTION LM : permet 
l'exécution de parties de programmes en LM, 
un mode pas à pas, avec visualisation possi- 
ble de l'état atteint par tous les registres du 
micro (P,Q,R,C,Z, et 96 registres internes). 

1.4 FOUILLEUR : permet la recherche en 
mémoire de séquences déterminées de carac- 
tères (octets), pouvant comporter d'éventuels 
caractères transparents (non considérés dans 
la comparaison), ceci aussi bien en RAM qu'en 
ROM. 

1.5 GLISSEUR : permet des transferts de 
blocs (jusqu'à 256 octets) de ROM ou RAM 
vers RAM. Utile pour préparer en « zone libre » 
une modification de programme, ou pour tes- 
ter par le moniteur d'exécution, en pas à pas, 
l'effet de routines extraites de la ROM. 

1.6 TRADUCTEUR DECIMAL/HEXA : fournit 
la traduction hexadécimale d'un nombre déci- 
mal (fonction inverse de &). Permet des calculs 
d'adresse en hexa, l'argument fourni pouvant 
être toute expression valide. 


2.1 GENERALITES: 

a. On accède aux différentes fonctions du 
moniteur par DEF suivi du mnémonique de la 
fonction Rzl= nettoyeur, fD^dumper, 

Réexécution pas à pasfT]= fouilleur, 
[~Gj= glisseur, jVj= décimal/hexa), RUN permet de 
charger le langage machine à partir de la K7, 
et ne doit donc plus être utilisé ensuite. 

b. les adresses et valeurs à fournir en réponse 
aux questions sont de manière générale à don- 
ner en hexadécimal (c.à.d. OA et non 10, 10 
et non 16, FFOO et non 65280, etc) sans le 
symbole &. 

Exceptions : 

nombre d'octets à RAZ dans le nettoyeur, 
incrément + x x dans le moniteur d'exécution, 
valeur décimale à traduire (of course !) dans le 
traducteur décimal-hexa. 

c. dans le programme BASIC les numéros peu- 
vent être changés à volonté, toutes les réfé- 
rences se faisant sur étiquettes (cohabitation 
possible avec un autre programme). 

d. en cas de besoin de place supplémentaire, 
on peut effacer 

- ligne 1 (initialisation) 

- lignes 10-12 (nettoyeur) 

- lignes 40-47 (fouilleur) 

- lignes 50-52 (glisseur) 

- lignes 60-61 (traducteur hexa) 

en conservant les fonctionnalités du DUM- 
PER/CORRECTEUR et du MONITEUR d'exécu- 
tion. Cela porte la place disponible à 2297 
octets (BAED - C3D5) au lieu de 1460 
(BDC2-C375). 


2.2 NETTOYEUR : 

On y accède par[DË§[Z] (« zéro »). Répondre 
aux questions : 

-©H A RAZ ? : adresse (hexa) de début de 
zone à mettre à zéro. 

-Nombre d'octets (1-256)?: longueur 
zone. 

2.3 DUMPER/CORRECTEUR : 

Accès par[D|F][D] (« Dump »). Répondre aux 
questions : 

-<a>H / LXXX ? : soit une adresse hexa (celle 
du 1 er des 8 octets qui seront affichés), soit 
un numéro de ligne BASIC, précédé de L. 
(auquel cas le dump concernera les 8 1 er 
octets de la ligne en question). 

• Si l'imprimante est connectée à la PCI 251, 
la question LPRINT ? apparaît : en cas de 
réponse « O », on obtient sur papier le dump 
de 256 octets (32 lignes), interruptible par 
|BRK) . Toutes autre réponse (dont |ENTERp pro- 
voque l'affichage à l'écran de l'adresse et du 
contenu hexa de 8 octets, sous la forme : 
C000:10AA 5220 FF1D B820 (exemple). 

• On peut alors balayer la mémoire à l'aide des 
touches t J >< - La mémoire se présentera 
comme une grande colonne (8 octets de large) 
avec 1 et f (incrémentation de l'adresse 
visualisée par pas de +/-8), et comme une 
ligne géante (65636 octets I) avec > et< . 
Les deux modes peuvent être mixés à volonté. 
De plus les touches sont à répétition auto, tem- 
porisée de 0,5 sec. env. pour les 4 premiers 
coups, puis à défilement (très) rapide. 

• Pour corriger directement le contenu de la 
mémoire (entrée ou corrections de routines p. 
ex.), il suffit d'appuyer sur SHIFT, puis de 
déplacer le curseur qui apparaît alors, à l'aide 
de t> ou < . 

On dispose alors des fonctonnalités de l'édi- 
teur normal : remplacement de valeur sous le 
curseur, INSertion, DELete. Les modifications 
doivent être validées par (DUR. (et non 


On peut sortir du mode DUMPER/CORREC- 
TEUR soit par ] SFHFT) , soit par[BR§, soit en 
appelant une autre fonction du moniteur par 
ou 0 : répéter 2 fois 


2.4 MONITEUR D'EXECUTION LM 

Accès par|DÊlf^ (« exécute »). Répondre aux 

questions 

H DEP.PGM ? : adresse hexa où l'on veut 
déclencher une exécution de LM. 

H PT.ARRET ? : adresse hexa du point 



d'arrêt (1 ere instruction NON exécutée). Pren- 
dre garde à ne pas couper en deux une instruc- 
tion (ALL RESET !) ; d'autre part les 3 octets 
à partir de l'adresse d'arrêt sont, au moment 
de l'exécution, remplacés par 79, C 5,49 : ne 
pas se placer à un endroit où l'on risque d'uti- 
liser (p. ex. par un JP quelconque) ces 3 octets. 
Bien entendu ils sont restitués automatique- 
ment. 

Le programe sous test s'exécute alors jusqu'au 
point d'arrêt, et le moniteur demande : REG. 
(PQR.RIJ OU +XX) ? en répondant : 

* P (ou PQ ou PQR), on obtient les valeurs 
atteintes par les registres P, Q, R et les flags 
C et Z. 

* Rij ou ij désigne, en hexa, un numéro de regis- 
tre interne (de 00 à 5F) on obtient le dump de 
ce registre et 8 suivants. Avec R00 on a ainsi 
l,J,A,B,X et Y. 

* + nn, on déclenche l'exécution de nn octets 
supplémentaires (PAS A PAS) ; veiller encore 
à ne pas couper en deux une instruction. 
Après chaque visualisation des résultats le 
moniteur boucle sur la question ci-dessus (sor- 
tie par DEF .. ou BRK). 

2.5 FOUILLEUR : 

Accès pafDEf Fj (« fouilleur »). Répondre aux 
questions : 

H DEB ? : adresse hexa de départ de la 
recherche en mémoire de la séquence d'octets. 

H FIN ? : adresse hexa de la fin de recher- 
che. 

- TRANSP ? (AC Sf ENTET]5) : code hexa choisi 
comme caractère transparent, c.à.d. que tout 
caractère trouvé en mémoire à son emplace- 
ment dans la séquence sera considéré comm 
bon. En faisant directemen fENTElj h on sélec- 
tionne l'option par défaut : transparent = "AC", 
choisi car très rare dans la ROM. 

- CHAINE ? : donner la séquence d'octets, en 
hexa, dont on veut retrouver les occurences 
entre les adresses précédemment fournies. 
Chaque fois que la chaîne est trouvée, l'affi- 
cheur la montre avec son environnement, 2 
octets précédents (et suivants) avec l'adresse 
où se trouve l'ensemble. 

Exemple 

recherches des occurences de l'instruction 7A 
nn aaaa 69..., dans la ROM de 0 à 1FFF : 
-^©H DEB ? 0 
-@ H FIN ? 1FFF 

- TRANS ?(AC SfENTÊBfËNTE^ (ou p.ex. : 
00 ) 


- CHAINE ? 7AACACAC69 (ou 
7A00000069) 

Pai| ENTER successifs on obtient : 

1 236:2A4B.7A 1 01 26F69.35 
1 49E:2A7B.7A02 1 4AD69.8C 
1 BD7:3A0F.7A021 BE669.7D 
1 BEC:2B06.7A1 31C2E69.86 
1C4D:8A59.7A041C6269.37 
1 C65 : 3994.7 A07 TC 8369 . 32 

2.6 GLISSEUR : 

Accès pa fDlbfG (« Glisseur »). Répondre aux 
questions 

- NB OCT ? : nombre d'octets de la zone que 
l'on veut translater en décimal : on peut répon- 
dre par une expression par exemple : 
&1F50-&1F00. 

- Dl@ H = : adresse hexa de début zone à 
translater. 

- VERS®. H = : adresse hexa de début de 
zone réceptrice. 

Cet utilitaire fonctionne sur tout le champ 
mémoire, et permet en particulier de « tirer » 
en RAM des routines systèmes (de la ROM) p. 
ex. pour en étudier les effets à l'aide du moni- 
teur d'exécution. 

2.7 TRADUCTEUR DECIMAL-HEXA : 

Accès pafDËf V (« Valeur »). Réalise la fonc- 
tion inverse de & du BASIC. A la question 
DEC ?, fournir la valeur décimale à traduire en 
hexa. Ce peut être toute expression valide dont 
le résultat est compris entre 0 et FFFF. Par 
exemple, pour obtenir la nouvelle valeur de l'ar- 
gument d'un JUMP C207 situé dans une rou- 
tine que l'on aurait fait glisser de C200 en 
C000, on répondrait : 

&C207 - (&C200 - &C000) 

la réponse, triviale dans ce cas, étant : C007. 

F. BOESSER 


MONITEUR LM PC 1251 
<C> F. BOESSER 

1 : CLEAR s DIM L*<0)*24 
*Q$<142>*4: INPUT 8Q 
*<*): END 

10: "Z* INPUT "8H A RAZ? 
*5 Af : GQSUB V / V :Y* 
INT (A/256) 

li:*r INPUT *NB OCTETS 
(1-256)? V ;C: IF <C< 1 
) OR (0256) THEN 'I 


12:P0KE &C3?7>C-1j&10jY 
» A-256Y: CAlL &C376: 
END 

15 : V" CALL &C518:A=256 
* PEEK &C699+ PEEK Z 
C69A: RETURN 
17: "A* INPUT *8H / LGN 
LXXX?*JA*: IF LEFT$ 
<A$» 1 X >"L M GOSUB V 
": I=A: RETURN 
18: D=&C70F: RESTORE VAL 
RIGHT* <A$ ? LEN A$-l 
) : I=256*( PEEK D)+< 
PEEK <D-l))+i: 

RETURN 

20: *D'’ GOSUB V A V : GOSUB 
M HB'':Y=0:X=0: IF 
PEEK &C6BB AND 4 
INPUT V LPRINT? V 5 X$ 
21: "T* IF X$= M 0 M FOR K= 
1 TO 32: CALL &C40C: 
LPRINT L$<0> s 1=1+8: 
GOSUB v HB v s NEXT K: 
INPUT •SUITE?’» X*: 
GOTO V T 

22: ’H* CALL &C43F: 

PRINT L$(0) 

23: GOTO ’M 

26: V HB V J= INT (1/256): 
POKE SC440J J? I-256J: 
RETURN 

28: M = v CALL &C524: GOTO 
*M 

30: *X* INPUT *8H DEP. PG 
M?*5A$: GOSUB V'sD= 
A: INPUT M 3H P'T.ARRE 
T?*ÎA$: GOSUB V":G= 
A 

31: *- , 'C=8iC752: POKE C» 
PEEK A» PEEK <A+1>» 
PEEK ( A+2 ) : POKE A>& 
79»&C5»&49: CALL D: 
POKE A» PEEK C* PEEK 
<C+1)> PEEK (C+2) 

32: * > v INPUT *REG. <PQR> 
RIJ OU +XX)? v ;F$: 
GOSUB LEFT$ <F$*1): 
GOTO *> 

33: v P tf I=&C74F: GOSUB ’H 
B*: CALL &C40C 
Ï4:PRINT V P: *5 MID4 <L$ 
(0) » 6» 2) 5 * Q: *5 MID« 
<L*<0> »8*2> ï w R: * j 
MID$ <L$(0)»ll»2)r 
CZ: *> PEEK &C74E: 
RETURN 

35:*R*:A«* RIGHTf <Ft» 
LEN F$-l): GOSUB V 
: I*&C550+A: GOSUB *H 
B v : CALL &C40C: 

PRINT F$; M : v ; RIGHT4 
(L$<0)> 19): RETURN 
36 : v + v G*G+ VAL MIDf <F4 
i 2 j LEN F$)SA=G: 


GOTO v - 

40:' , F V INPUT "3H DEB?”5 
A$: GOSUB */*:«■ INT 
< A/256): POKE &C74D> 
A-256K»K: INPUT M 3H 
FIN?' , jA$: GOSUB V*: 
F=A 

41 : A$= v AC V : INPUT "TRAN 

sp?<ac si enter> m ;a$ 

42:G0SUB V v ! POKE &C3A 
1 > A 

43: INPUT "CHAINE?'' 5 L$<0 
):E= LEN L$<0)/2: 
POKE &C?4FjE 
44: FOR 1=1 TO E:A$= 

HIM (Lf (0)»2I-1 j 2>: 
GOSUB */•: POKE &C74 
F+I» A: NEXT I 
45: v . * CALL 8.C37E: 1=256 
* PEEK &C74E+ PEEK & 
C74D: IF 1=0 OR I>=F 
END 

46:l*I-2-E: GOSUB *HB*: 
CALL &C40C: FOR J=1 
TO 3:L*<0>« LEFT$ <L 
*<0>»4J+5)+ RIGHT$ < 
L$(0>»19-5J): NEXT J 
47: PRINT LEFTf <L$<0>»9 
) + , '. , + MIM ( L$ < 9 ) > 1 
0»2E>+ V . v + RIGHT$ <L 
*<0)»12-2E): GOTO *. 
50: *G" INPUT M NB OCT?"5 
I: POKE SC74B» I-i: 
INPUT V BE 3H='’ 5 Af : P= 
8cC74E: GOSUB "++ 

51: INPUT "VERS 3H="5A$: 
P=&C750: GOSUB "++ M : 
CALL &C3BF: END 
52: v ++ tf GOSUB V M :I= 

INT < A/256): POKE P» 
A-256I > I : RETURN 
60: "JT GOSUB ''HB 0 : CALL 
&C40C: A$= LEFTt (L$C 
0>,4): RETURN 
61: "V" INPUT 'DEC?*»!: 
GOSUB **•: PRINT A$: 
GOTO "V 


DUNP MONITEUR LM 

C370:E102 3F9E 0004 0007 
C378: 10C0 0023 1F37 10C7 
C380S4D86 1A86 63FF 2809 
0388:5063 FF28 0406 2C20 
C390S03C7 0250 F1F1 10C7 
C398:4F57 4334 78C3 B524 
C3A0:67AC 380A 83C7 3806 
C3A8:D32F 022D 292F 1210 


C3B0 

C74D 

861 B 

37F8 

BBF1 

C3B8 

EE83 

0000 

3506 

3710 

C3C0 

C74B 

8300 

0418 

DA34 

C3C8 

0000 

07F8 

94F 1 

E982 

C3D0 

3526 

042F 

0937 

10C7 

C3D8 

4D52 

114E 

0200 

2803 

C3E0 

0201 

522A 

03D5 

0A1 1 

C3E8 

4F20 

5211 

5021 

5211 

C3F0 

5122 

5210 

C550 

8053 

C3F8 

8100 

5E11 

5119 

8110 

C400 

C551 

1810 

C74D 

5710 

C408 

C552 

5237 

03C4 

0237 

C410 

F1F1 

10C4 

4157 

10C4 

C418 

3A52 

10C4 

4057 

10C4 

C420 

3852 

67E0 

3A04 

8470 

C428 

0803 

C402 

47F 1 

F503 

C430 

08FF 

B678 

C447 

3703 

C438 

C402 

3800 

07A2 

3510 

C440 

C440 

3300 

07A2 

1803 

C448 

C402 

4880 

07A2 

35A0 

C450 

10C4 

401 A 

03C5 

02B8 

C458 

F1F5 

A002 

0434 

78C4 

C460 

7078 

C470 

78C4 

7D2F 

C468 

0A02 

1 D 1 0 

C5BC 

5237 

C470 

59DA 

5958 

78C4 

81DA 

C478 

78C4 

8150 

3702 

1126 

C480 

37DB 

600F 

6140 

634A 

C488 

3A03 

7007 

0653 

3710 

C490 

C6EA 

02B8 

5210 

F8BE 

C498 

D4FB 

78C5 

0A78 

C40C 

C4A0 

A010 

C5B8 

0023 

1878 

C4A8' 

400C 

F1E0 

10C7 

5057 

C4B0 

6705 

2A0A 

4252 

6701 

C4B8 

3804 

78C5 

10FF 

447A 

C4C0 

07C4 

9D69 

0DC4 

E10C 

C4C8 

C4DB 

0FC4 

E70E 

C4ED 

C4D0 

09C5 

0207 

C507 

0AC5 

C4D8 

07C5 

0A03 

0002 

082C 

C4E0 

1103 

FF02 

F82C 

0B03 

C4E8 

0002 

812C 

0503 

FF02 

C4F0 

FFF1 

E910 

C440 

821 A 

C4F8' 

DAF8 

8EDA 

10C4 

4082 

C500 

1B37 

10C6 

DAD5 

205B 

C508 

5B37 

10C7 

50D4 

0037 

C510 

0260 

34F 1 

0B2F 

0337 

C518 

03C6 

0299 

F1F1 

F177 

C520 

78C5 

3E37 

F19A 

03C4 

C528 

0240 

F1F5 

78C5 

3E86 

C530 

1328 

0A07 

0203 

3404 

C538 

78C5 

3E2F 

0537 

F56A 

C540 

F737 

A959 

26A8 

5926 

C548 

3778 

C3D6 

0258 

3237 



UN 

RiNSEi ? 



UN 

If? 


UNE CRITIQUE 


834.93.44 



Modification 


REDEFINITION DI CARACTERES 


Ce programme permet de redéfinir des carac- 
tères pour les PC 125 x (voir PC 1 245) ; il est 
en LM et n'utilise aucune routine en ROM pour 
rester compatible tous PC. Pour une éventuelle 
adaptation à d'autres PC de la série 1 2 x x , il 
faut connaître les adresses de Ram vidéo et les 
tampons E/S. 

Les caractères de &40 à &6A (codes SHARP 
pour PC 1251) sont redéfinis, donc de 0 à 9 
et de A à Z. Dans cette version, les chiffres sont 
en inverse vidéo et on a des minuscules. 


Utilisation 

Une fois le programme LM entré, initialiser le 
tampon par CALL &BF79 dans un programme 
Basic. On peut ensuite POKEr en &BF6A le 
paramètre d'attente (si on veut sortir de l'at- 
tente prématurément : BRK. On simule alors 
une PAUSE ou un PRINT (la valeur &FF donne 
1 mn 30 s). Mettre ensuite un WAIT 0 et PRIN- 
Ter le message. Puis CALL &BF00. Le pro- 
gramme Basic se poursuit alors normalement. 


On peut changer les caractères : soit x le code 
SHARP du caractère, faire : 

-POKE &C000 + 5 1 (x— &40), valeur 

1 , 2 , 3 , 4 , 5 . 

Les valeurs 1,2, 3, 4, 5 sont choisies en fonc- 
tion du caractère comme indique le manuel. 
Avec le programme de test fourni, on peut 
apprécier la valeur du résultat. 

Attention pour reloger le programme, il faut 
modifier LIDP BF52 et LIDP BF1C en plus des 
adresses des tables. En effet, le programme se 
modifie continuellement. 

F. Hubert 


3F00 

10 

LIDP 

BF52 

3F03 

02 

LIA 

26 

3F05 

52 

STD 


3F06 

10 

LIDP 

BFiC 

3F09 

02 

■lIA 

5F 

3F0B 

52 

STD 


3F0C 

36 

lP86 


3F0D 

02 

lia 

PP 

3F0F 

3B 

EXAM 


3F10 

58 

I NCP 


BFii 

02 

LIA 

=7 

BF13 

BB 

EX A l*l 


3F14 

10 

LIDP 

BFIC 

3F17 

57 

LDD 


3F18 

42 

InCA 


3F19 

52 

STD 


BF1A 

10 

lIDP 

C700 

BF1B 

88 

LP08 


BFlE 

55 

nVMD 


BFlF 

63 

CPI « 

00 

BF21 

38 

JRZP 

44 C3F66) 

3F23 

63 

CPI pi 

10 

BF25 

3B 

jrcm 

12 (BF14) 

BF27 

03 

LÏB 

44 

BF29 

02 

LIA 

63 

BF23 

71 

SBim 

10 

3F2B 

63 

CP IPI 

10 

3.F2F 

3A 

JRCP 

0F CBF3F) 

BF31 

02 

LIA 

B3 

BF33 

71 

SBIM 

20 

3F35 

63 

CPIM 

0A 

3F37 

3A 

JRCP 

07 <3F3F> 

BF39 

71 

SBIM 

10 

BF3B 

03 

LIB 

BF 


Initialisation 

IYS 


Début tampon 
C75F 


Y =F7FF 
RAM VIDEO 


Incrément 

pointeur 

tampon 

K = char à 
redéfinir 


ANALYSE 


BF3B 

02 

LIA 

PP 



3F3F 

84 

LP04 



X pointe 

3F40 

DB 

EXAM 



le début 

3F41 

BA 

EXAB 



de table 

3F42 

50 

IHCP' 




3F43 

BB 

EXAM 




BF*4 

88 

LP08 




BF45 

BB 

EXAM 




BF46 

03 

LÏB 

00 



BF48 

00 

Lll 

05 


X pointe 

BF4A 

84 

LP04 



le caractère 

3F4B 

14 

ABB 




BF4C 

41 

BECI 




3F4B 

29 

JRNZM 

04 

CBF4A) 


BF4F 

00 

L i i 

05 



BF51 

24 

IXL 



Transfert 

3F52 

26 

IYS 



X dans Y 

BF53 

41 

BECI 




BF54 

29 

JRNZM 

04 

(3F5H 


BF56 

86 

lP06 




BF57 

63 

CP IM 

3B 



BF59 

28 

JRNZP 

0A 

(BF64) 

Si 2 e partie 

BF5B 

02 

lia 

7C 


De la Ram Vidéo 

3F5B 

BB 

EXAM 



Initialisation 

BF5E 

10 

LlBP 

BF52 

DYS 

BF61 

02 

LIA 

27 



BF63 

52 

STB 




BF64 

2B 

JRM 

51 

(BF14) 


BF66 

Fl 

CAL 11E0 



3F68 

02 

LÎ A 

02 



BF6A 

03 

LIB 

FP 


TEST BRK 

BF6C 

63 

TES T 

08 


ATTENTE 

3F6E 

28 

JRNZP 

09 

<BF78> 


B-70 

4E 

uiAIT 

PP 



BF72 

C3 

BECB 




3F73 

29 

JRNZM 

08 

<BF6C> 


BF75 

43 

BECA 





- 28 - 


BF76 

29 

JRNZM 

0D <BF6A) 

BF78 

18 

LïDP 

C768 

3F7B 

56 

READ 


BF7C 

88 

LII 

7F 

BF7E 

1F 

FILB 


3F7F 

3? 

RTN 




Nettoyage 

tampon 


SAUVEGARDE SELECTIVE 


FIN 

Répondre par le n° de ligne de fin (cette ligne 
est comprise dans la sauvegarde). 

On peut sûrement faire plus court et plus rapide 
en LM, mais ce pgm est facilement MERGEa- 
ble. Si le cœur vous en dit, à vos claviers. 


Il peut être utile d'isoler une par- 
tie d'un programme Basic résidant 
en machine, en vue par exemple 
d'une utilisation future en sous- 
programme ou par MERGE. 


Cet utilitaire écrit en Basic permet 
de le faire sur PC 1251 (adapta- 
tion possible sur les autres PC hor- 
mis PC 15XX et I21X). 


Pour ce faire on manipule les pointeurs de début 
et fin de programme, et on utilise le pointeur 
des DATA pour reprérer les adresses. 

A la fin de la sauvegarde les pointeurs sont res- 
titués et l'on peut travailler normalement sur 
le programme. 

Il subsiste néanmoins un inconvénient ; il faut 
sauvegarder tout de suite le bout de pgm isolé 
(ce que fait le pgm utilitaire ci-joint) car après 
extinction le PC réinitialise tout. 


La valeur &B800 sur PC 1 251 correspond à la 
zone RSV, tout autre emplacement de MEV 
libre est valable. 


UTLISATION 

Aux questions : 

DEBUT 

Répondre par le n° de ligne de début. 



M. MORA 


990s*** IHPUT "DEBUT *5A 
»*FÏ* * 5 3: C=&C6E1 : D= 
58953: 1=0808 
991 : POKE I» PEEK Ci 

PEEK <C+D» PEEK <C+ 
2) > PEEK <C+3) 

992: RESTOPE A:E= PEEK B+ 
PEEK <B+l)*256:E=E-2 
: POKE C» £-< INT <E/ 
256) *256)» INT Œ/25 
6) : F= PEEK £: POKE E 
» &FF 

993: RESTORE 3:0= PEEK B+ 
PEEK <3+1 ) *256 
994: IF PEEK 0=0 THEN 996 
995:0=0+1: GOTO 994 
996:0=0+1: POKE <C+2)»G- 
< INT <0/256)*256)j 
INT <0/256) :H= PEEK 
G: POKE G» &FF 
99?: CSftVE 

993: POKE C» PEEK I» 

PEEK <I+1), PEEK <1+ 
2)» PEEK < 1+3) : 

POKE E? F: POKE G» H 




MASTER MIND 


Encore un classique parmi les 
leux de « brain » agrémenté 
cette fois de graphismes pour 
votre PC 1251/55. 

Extrait d'un manuel de pro- 

Rappelons brièvement les principes du jeu : l'or- 
dinateur choisit une combinaison de Quatre 
figures parmi sept. Vous devez la découvrir en 
un minimum de coups (au plus 9), en sachant 
qu'à chaque coup le pgm vous indiquera le 
nombre de figures bien placées d'une part, et 
le nombre de bonnes figures d'autre part. 

Une fois le pgm présent dans la mémoire de 
votr ®EÇ- vous avez deux options pour débu- 
* er •HEBou^g La seconde s'avérant la 
plus bruyante puisque les BEEPs sont activés. 
Ensuite s'affichent les différents messages 
d'usage, puis les figures précédées de leur code 
chiffré. Presser une touche (gpar ex.) et qua- 
tre rectangles noirs apparaissent suivi du 
numéro du coup et de quatre carrés blancs (for- 
més de points aux coins). Les 4 rectangles noirs 
représentent bien évidemment les figures 
cachées. 

Il fart maintenant appuyer sur une des touches 
de üJà iZJquatre fois en fonction des figures 
choisies, pour entrer votre première combinai- 
son. Une fois la combinaison enregistrée, le PC 
vous répond en réaffichant ce que vous avez 
introduit, plus, tout à fait à droite de l'écran une 
information sous la forme : X-Y 
Où X est le nombre de figures bien placées et 
Y est le nombre de bonnes figures. 

Avant de jouer, il est utile de connaître le rôle 
précis de certaines touches : 

[+]permet de visualiser chaque écran de coup 
(donc de 1 à 9) du plus petit au plus grand. 
Coup déjà joués évidemment. De plus, à la 
fin de la partie cette touche permet de 
remonter tout le tableau des coups un à un 
avec les rectangles noirs dévoilés, pour per- 
, — .mettre d'analyser la partie. 

□permet de descendre le tableau. 

L*J permet à tout instant de consulter les figu- 
res et leur code de touche. 

[OJ permet d effacer un coup lors d'une entrée 
erronée. 


grammes japonais, ce jeu en 
Basic occupe pratiquement 
toute la mémoire disponible sur 
un PC 1251 (àtreis octets près). 


IL 


codes touches des figures 

0 

Les autres touches permettent de passer d'un 
écran à l'autre, nous prenons A par convention. 
Bon amusement ! 

J.F.V, 


3 : *A* CLEAR : GOTO 15 
10: V B V CLEAR :|«i=l 
15: RANDOM : jj IM g$<9>*2 
2,KC10,3),LC10,3),BC 

3 > » C < 3 > 

20: WAIT 217: PRINT w 
** MASTER MIND **’ 
25:F0R J=0 Tû 3:BCJ)= 
RND 7: NEXT J: GQSUB 
780 

30:BEEP 1*1: F=F+l : P=F: x$= 
STR$ F:E=0:D=0 
100: FOR 1=0 TO 3 
105:G*CF)= V »+X$ 

110:PRINT G*CF> 

115:CALL 4576 
128.-P0KE SF805» 127» 127,1 
27» 127 » 127 

125:P0KE &F80F, 1-27, 127, 1 
27)127,127 

■130:POKE &FS19» 127» 127» 1 
27,127,127 

135:P0KE &F823, 127, 127,1 
27,127,127 

140:POKE &F837»63,K(F,0) 
»L(F,0)»K(F»0),68 
145:P0KE SF872,68,KCF, 1) 
»L(F» 1)»KCF» 1 > » 68 
150:POKE &F868»68»KCF»2> 
»L(F»2)»K<F»2? ,68 
1.55: POKE 8F85E*,68,KCF,3> 
>LCF»3),KCF»3),63 
îb0:POKE âF800»0,0,0,0,0 
165: H$= INKEYt : IF H$ 

THEN 175 
170:GOTO 120 


GOSUB 500: P=F: GOTO 
105 

185:C(I)= VAL H$:V=C(I): 
GOSUB 190: NEXT I: 
GOTO 250 

190: IF V>4 LET KCP» I)=10 
6: GOTO 200 
195: KCP» I )=H0 
200: IF V=1 LET LCP,I)=S1 
î RETURN 

205: IF V=2 LET LCP,I>=95 
: RETURN 

210:1F V=3 LET LCP,D=n 
7 ‘- RETURN 

215: IF V=6 LET L<P»D=n 
3: RETURN 

220: IF V=7 LET LCP,I>*12 
3: RETURN 

225:L<P» I)=127: RETURN 
250: FOR T=0 TO 3 
255: IF C<T)=B(T) LET D=D 
+l:C(T)=C<T)+8:B<T>= 
B(T)+8 
260:NEXT T 
265: FOR Q=0 TQ 3 
270: IF B(Q) >8 THEN 290 
275:F0R R=0 TO 3: IF CCR 

7 >> 8 O* R= Q THEN 285 

2o 0:IF CCR)=B(Q) LET E=E 
+l:C(R)=CCR)+8:B(Q)= 
B<8)+8 
285: NEXT R 
290: NEXT 8 

295: FOR S=0 TO 3: IF CCS 
>>8 LET CCS)=CCS)-8 
300: IF BCS>>8 LET BCS)=B 
CS)-8 
305: NEXT S 
310: IF D=4 THEN 650 
315:Z$= STR$ D:Y$= STR$ 

E 

320: G$CF)=G$CF)+* 
M +Z$+''- w +y$ 

325:BEEP W: IF F=9 THEN 
655 

330: GOSUB 550 
335: GOTO 30 
500: BEEP U: IF H$=' , - v 
AND P>1 LET P=P-i: 

GOSUB 550: GOTO 500 
505: IF HS**** GOSUB 800: 
GOTO 500 

510: IF H$=' , + v AND P=F-1 
LET P* F: RETURN 
515:1F H$= v + Ï AND F>P 
LET P-P+l: GOSUB 550 
: GOTO 500 

520: IF H$= v + '’ LET P=l: 

GOSUB 550: GOTO 500 
525: IF H$O' , 0 tf RETURN 
530: IF F>P RETURN 
535: FOR M=0 TO 3:KfF,H>* 

0 ' - 


=0: RETURN 
550! PRINT G$<P) 

555: CALL 4576 
560: POKE &F805, 127, 127, 1 

27,127,127 

565: POKE &F80F, 127, 127, 1 

27,127,127 

570: POKE 6F819, 127, 127, 1 

27,127,127 

575: POKE &F323, 127, 127» 1 

27,127,127 

580: POKE âF337,68,K<P»0) 
,L(P,0),K<P,0),68 
585: POKE &F372,68»K<P, 1) 
»L<P» 1)»K<P» 1),68 
590: POKE &F868»68,K<P»2) 
, L<P» 2> » K<P» 2) , 68 
595: POKE &F85E, 68, K(P, 3) 
»L<P»3)»K<P»3)»68 
600: H$= INKEY$ 

605: IF H$ CALL 4581: 
RETURN 

610:GQTO 555 
650:WA1T 100: BEEP W*2: 
PRINT w BRAVO !*: 
N=l: GOTO 660 
655: WA I T 100: BEEP W: 
PRINT w TERMINE 1 ' 
660:P=10 

665: FOR U=0 TO 3:V=B<U>: 
I=U 

670:GOSUB 190: NEXT U 
685: P=F: GOSUB 550 
690: CALL 4576 
695: POKE &F805»68,K<10,0 
)>L< 10,8), K< 10,0), 68 
700: POKE &F80F,68,K<10, 1 
),L<10» 1),K(10, 1)»68 
705: POKE &F819,68,K(10,2 
)»L<10»2)»K<10»2)»68 
710: POKE &F823»68,K<10,3 
),L<10,3),K<10,3),68 
715:PQKE &F337»68,K<P,0) 
,L<P,0)»K(P,0),68 
720: POKE &F872,68»K<P, 1) 
,L<P»1)»K<P»1),68 
725: POKE &F863,68,K<P,2) 
»L<P»2)»KtP»2)»68 
730: POKE &F85E,68,K(P,3) 
,L<P,3)»K<P»3),68 
735: H$= INKEY$ 

740: IF H$ THEN 970 
745: GOTO 695 

780: PRINT * * TOUCHES ET 
FIGURES * g : WAIT 0 
300:PRINT v 1 n /3 /4 / 
5 /6 /7 V 
805: CALL 4576 
310:POKE 8.F80A, 68, 110,81 
,110,68 

815:P0KE &F819, 68, 110,95 
,110,63 

820: POKE &F823,68» 110» 11 
7,110,68 

825:P0KE &F837»68, 110» 12 


7.110.68 

J: POKE &F86D» 63, 106, 12 

7.106.68 

ÜPQKE &F85E»68, 106, 11 

3.106.68 

5:POKE &F84F» 68» 106» 12 
3,106,68 
j: H$= INKEYf 
î: IF H$ L 
4581: R 
> : GOTO 31 
>:CALL 45 
j:WAIT 150: PRINT * VO 
TRE SCORE "KIO-F)* 
1000+N 

ÜWAIT 0: PRINT "UNE A 
UTRE PARTIE ? CO/N)'' 
ÜCALL 4576 
|:H$= INKEY# 
ï: IF H$ THEN 935 
|s GOTO 920 

i: IF H$= , 0'' THEN 960 
i: IF H$< > V N'' THEN 920 
ÜWAIT 150: PRINT * A 
BIENTOT ! * 
i: ENB 

iï IF W=1 THEN V B M 
i : GOTO "A* 

üIF Ht< > v +" THEN 900 
i: IF P=F LET P=0 
i:P=P+l: PRINT GfCP): 
GOTO 690 
:END 



Faisan! suite au programme de Tri 
alphanumérique publié dans le 
n° 1 1 de M. 6. Nicolas, voici du 


même auteur (et toujours en LM) 
un programme de Tri de nombres 
réels. 


Il ressemble au programme de tri 
alpha et en conserve la simplicité 
d'emploi, mais il est moins simple 
de comparer deux chaînes de 
caractères et deux réels. 


PRINCIPE : 


ter le signe du plus grand des deux nombres 
en valeur absolue. On peut ensuite les classer. 
Mais 0 a la particularité d'avoir le même expo- 
sant que les nombres compris entre 0 et 10 
(exclus). On risque donc de conclure que 0 est 
plus grand que 0.1 I 
Il faut donc traiter 0 à part. 

Pour ce qui est du mode d'emploi, il est le 
même que pour le tri alpha du n° 11. Entrez 
le Basic et le LM, puis tapez RUN. 

Ensuite, entrez les nombres. On rajoute un 
nombre par DEF S et on visualise le classement 
par DEF A. 

Ce programme peut bien entendu être inclus 
dans un autre. 

Faites-nous part de vos applications. 

G. NICOLAS 

10: CLEAR : DIM 3C255):N 


8: 

tf S v M=N 

+ 1: 

INPUT 

3 <25 


5-N): 

H 

IF N<255 THEN 

8: 

jLKj 

!A=&C5C 

7-Sh 

l!3= I! 

•iT <A 


/256>s 

A=A- 

-2563: r 

v=N-l 


40: POKE &B904, A: POKE & 
3983,3 

50: CALL &B982: BEEP 1 
60: "A* FOR 1=0 TO N: 
PRINT STR$ <1+1)5 w 
" 5 3C255-H+I ) : NEXT 
I: END 

B8E0 0001 8413 1008 0006 
B8E3 A004 1800 0184 1312 
B8F0 0800 06A0 0419 0001 
B8F8 8413 1008 8006 A004 
B900 1937 9082 BFDB 9102 
B908 C5BB 9870' 882A 8458 
B918 7081 9163 C523 8751 
B918 63C7 2882 3788 8113 
B928 1892 8892 7888 2A84 
B928 5078 8193 63C5 2886 
B930 5163 CF39 2A88 8384 
B938 1318 0880 8441 3859 
B948 2475 813B 8788 8441 
B948 383D 8657 7581 3B08 
B950 0803 8413 1008 A086 
3958 5570 7024 7478 453A 
B 960 2659 2335 A806 5560 
B968 F824 64F0 453A 1859 
B978 2827 8802 85DB A886 
B978 5524 453A 0A59 2819 
B980 4929 0C79 B923 8001 
B933 1310 8488 0424 6408 


En effet pour comparer deux réels, il faut regar- B998 2884 7SB8 E879 B923 

der leurs valeurs absolues (en BCD, on met à B998 8881 1312 3488 8424 

Ole quatrième demi-octet donnant le signe voir B9A8 6488 3884 78B8 E879 

n° 5 ou le Manuel de référence LM), puis tes- B923 8088 8880 0000 






CuRSOR -24: INPUT v Ciï 
arse ut i le< Ï)=?"»C 
21: IF F$="ÏERRE" THEN 
INPUT " Carburant 
<T > = : iv ;û 

25: I e .:q*D>R GOTO 28 
30SCLS î IF F*="TERRE" 
INPUT “Latitude 7ir = 
?"»l*(0)î CURSOR 24: 
INPUT v Amie de t ir = 
?"» H 

35:CLS : InPUT "Perisee 
y • seÛ:m>='?"5P: 
CURSOR 24: INPUT "Ap 
oî ee v ; sevkm>=?" > A 
36: P=P*iE3+3 : A=h* 1E3+S 
40:CLS : PAUSE '•'Car acte 
res lanceur:": 

CURSOR 24: PAUSE "Ra 
pport masse=24“: 
CURSOR 24: INPUT "Vi 
tesse ejec<ffl/s>=? v » 2 
45: G=Q/S A 2: X= SQR kù -'? > 
: Y= SQR <2+G*$+<l-S/ 
P>> 

58: w= SQR (2*X A 2/'.P/A+i 
> )+Y 

55: IF F$="TERRE" lET K= 
EXP ( < w- < 2*R*S - J* 

COS < VhL L$<8;>* 

COS H))/Z>: G0 T 0 68 
56îi<= EXP <W/Z>: -JSING 
* ZUMU.tr' 

60: GOSUB 10000: IF M>3E 
4 GOTO 15 

65: h=(P+A) '2: GOSüB 35ô 
73: PR INT "Période (mi nu 
tes)*"* DNS <T--'60> 
80: INPUT "Rendez mous S 
pat i a i <Q/N>?" î 3$ 

81: IF B$="Û" LET B$=" " 
: GOTO 100 

85:N=P: GOTO 780 
90:PRINT "I«POSSibe»M>3 
0000 T.": GOTO 15 
100:PAUSE "Rendez vous -S 
pat i al": K=0: CURSOR 
24: INPUT "Hauteur c 
i ble(Kïft>*?"îE:E s E*lE 
3+S: I=.5 :h=E 
101 : GOSUB 350: N-T 
105:H=<P+A)/2: GOSUB 350 
:H=A 

I 10:K=(-T'N+1 >*180+K: IF 
H=£ AND K< = 1 GOTO 11 
6 

1 15: D= SÛR ABS <H A 2+E A 2- 
2*E+H* COS K): GOTO 
120 

1 16: D=E* TAN K 
120: IF ABS D<=180 GOTO 2 
80 

125: CLS : PAUSE "Station 
a C k m > " 5 D ' 1E3 
126: CURSOR 24: PRINT "An 
9 j e< +=avance> " » K : 
GOSUB 368 

138: IF BS="ü" OR B$="N" 
GOTO 148 

135: INPUT "UN CONSEIL (0 
'N)?"ÏBS: IF B*="Û" 
GOTO 611 

140: M=P: P=A: PAUSE "ORBI 
TE SUIVANTE" 

142: CuRSOR 24: INPUT "Ha 
uteur v i see<km>=?"» A 
: A-h* 1E3+3: GOTO 520 
145:I*I+.5: GOTO 105 
200: PAUSE "GAGNE !": 
CURSOR 24: PRINT "Di 
stance(m>=" ? D 
205: CLS : PAUSE "Nbre Or 
bi tes="> I:B$=" ": 
CURSOR 24: PRINT "Vi 


t. res i d. <m/s>="î V-U 
210: GOSUB 560: IF I=.5 
GOTO 225 

215: CURSOR 24: INPUT "hR 
RINAGE (0/N)?"?B$: 

IF 3$="Q" GOTO 640 
220: IF B*<>"N" GOTO 215 
225: CLS : PAUSE "MANQEUV 
PE SUIVANTE:?": 
CURSOR 24: INPUT "Or 
b 1 1 =0 ou Vo*a9e=V"»B 
$ 

230: IF B*="û" CLS : GOTO 
148 

235: GOTO 1785 
350: T=2*JI* SQR <H A 3/Q): 
RETURN 

360: PRINT "CARBU RESTANT 
<fO = "»Q*lE3: RETURN 
520: B$=" *:u= SQR <0/P): 
V=U* SQR (N/(<N+P)/2 
> > : W=U* SQR <A/((P+A 
)/ 2 )> 

530: X* ABS 04-V): GOSUB 
600: G=J: CLS : PAUSE 
"Pour atteindre: "î (A 
-S)/lE35*Kes": 

CURSOR 24: PRINT "Co 
nso<ks>=" >G 
535:Q=Q-G/lE3s IF Q<0 
GOTO 601 

540: IF A<=6491E3 AND FS* 
"TERRE" GOTO 760 
541: IF ( A-SX=5E3 AND F* 

< >" TERRE" GOTO 3010 
543: IF F$< >" TERRE" GOTO 
570 

545: CLS : PAUSE "Test re 
tour a 120 kms" 

550: V=W*(P/A> :U= SQR (0/ 
A>:W=U* SQR (6491E3/ 
<<A+6491E3)/2>> 
565:X= ABS <V-W): GOSUB 
600: CURSOR 24: 

PRINT "Carbu neces.< 
k*)="ÎJ 

570: CLS : INPUT "NANOEUV 
RE ACCEPTEE(0/N)?";B 
*: IF BS="Û" GOTO 14 
5 

575: IF B$O g N" GOTO 570 
580:Q=Q+G/1E3: GOTO 142 
600: J=<Q+C+R)*1E3*<1-1/ 
EXP (X/15E3)): 

RETURN 

601 : CLS : PRINT "CARBURA 
NT INSUFFISANT !": 
GOTO 580 

611: PAUSE "Calculs en co 
urs": J=lE5: Y=J: IF A 
>=E OR P>E GOTO 630 
612: U=A: V=P: I4=K: Y=Y* SGN 
W: IF K<0 GOTO 633 
613: V=U: U-E+Y: GOSUB 622 
:V=U:U=E: GOSUB 622 
614: D=E* TAN N: IF ABS D 
<500 GOTO 635 
616: IF SGN Y<> SGN W 
GOTO 618 

617: Y* ABS Y+J: GOTO 612 
618: J=J/2: IF J<.5 GOTO 
635 

619: Y= ABS <Y-J>: GOTO 6 
12 

622: H=<V+U>/2 
623: GOSUB 350 
624:i4=(-T/N+l>*180+W: 
RETURN 

630: PRINT " IMPOSSIBLE» AP 
OGEE>H. CIBLE" 

63i:G0Tû 140 

633:PRINT "Corriger reta 
r d " » K 

635: PAUSE "Dist («)=*» 

INT D>‘ * V i sees<km) : " 


: CURSOR 24: PRINT " 
1=";<V-S)/1E3Ï" 2=" 

;<E-SV1E3 
636: GOTO 140 

640: CLS : PAUSE "CGMMAND 
ES EXPLORATOR": 
CURSOR 24: PRInT "G 
Gauche D Droite": 
CURSOR 24: PRINT "h 
Avance »R Recul" 
64i:CURS0R 24: "H Monter» 
B Descendre" 

644: CLS : PAUSE "EXPLORA 
TGR* + ": CURSOR 24: 
PRINT "Arrieaee = +# 
0000": CURSOR 24: 
PRINT "En avant seul 
ement " 

645: CURSOR 24: PRINT "AT 
TENTIüN A VITESSE" 
646: CLS : PAUSE "DV=Dis 
verti D=Dist horiz": 
CURSOR 24: PRINT "<0 
^Station devant /dess 
us" 

649: RANDÛM : J* INT RND 1 
1 : X=0: USING "####.# 
CLS 

650: L$<0)=" #0000": 

GOTO 660 
655: LS<8)=* 

660:l$<0>= LEFT* »;l$<0>» 
J-l>+"+"+ RIGHT$ <L$ 
<0;*11-J> 

670: PhUSE Ll<0>» " DV =" 
VA» "B i S = " I D» " V 1 1 = " 

; v-u 

680: IF ABS X< 1 hND J=6 
GOTO 698 
685: GOTO 708 
690: IF *: V — U •< 1 AND ' V-U) 
>=8 AND D>=-1 . 01 AND 
De =.5 GOTO 735 
692: IF (V-Ü,' ,l AND B>ô 
GOTO 740 

694: IF àV-U>\ 8 AND B< = 1 
AND ü>“l GOTO 740 
700: IF INKEY$ «"G" GOTO 
720 

781: IF INKEYS = "D" GOTO 
722 

702: IF INKEYS ="A" GOTO 
724 

703: IF INKEYS ="R" GOTO 

726 

704:1F InKEYS ="H" GOTO 

727 

705: IF INKEYS = "B" GOTO 

728 

718: GOTO 729 C 

720: J=J-1 : IF K=0 GOTO 
810 

721 : GOTO 729 
722: J=J-*-l : IF J>ti GOTO 
810 

723:G0TÛ 729 
724: V=V+. 95: GOTO 729 
726: V=V-. 85: GOTO 729 
727:X=X+.45: GOTO 729 
723:X=X-.35 
729:Q=Q“20/lE3 
730: D s D+V-ü: A=H/(2*(U/V) 
^2-l):X*<V-U)X ABS 
< A-E)/(ÏÏ*H) )*80+X: 

IF SQR < ABS D A 2+ 

ABS X a 2> >299 GOTO 81 
0 

731 : IF D>0 OR ABS X>1 
GOTO 655 
732: GOTO 650 

735: CLS : PRINT "BRAVO» A 
RRIMAGE REUSSI": 

USING : GOSUB 360: 
GOTO 788 


740: CLS : PAUSE "C R A S 
H ! ! !" 

746: CURSOR 24: PRINT "De 
struction Navette": 
CURSOR 24: PRINT "St 
ation endommasee": 
GOTO 808 

760:1=1+1: CLS : PAUSE " 
Atterr issase a : ": 

IF CI- INT I )=0 
CURSOR 24: PRINT " B 
ase": GOTO 300 
76i:CURS0R 24: PRINT 4E4 
*<I- INT I)»" kms de 
Base": GOTO 800 
780: CLS : PAUSE "MANÛEUV 
RE SUIVANTE ?": 
CURSOR 24: InPUT "Re 
tour= 0 » Suite* V"? 
B$: IF B$="V" LET A= 
P: GOTO 1782 
78 1 : IF B$<>"0" GOTO 780 
782: IF F$="TERRE* LET A= 
6491E3: GOTO 520 
733:G0T0 3010 
800: CLS : INPUT "NOUVELL 
E PARTIE <0/N)?"?B$: 
IF B$ s "0" GOTO 10 
802: CURSOR 24: PRINT "Te 
raine. END 
810:CLS : PRINT "Cible p 
erdue de vue..": 
USING "######.##" : 
GOTO 140 

1690: CLS ï PAUSE "Carac 
ter istiaues de": 

IF 1=0 LET F$="TER 
RE" 

1692: CURSOR 24: PAUSE " 
PLANETE * » F$ 

1700: IF FS="LUNE" AND I 
=0 LET D=384400 

1781: IF F$="LUNE" THEN 
PAUSE "Dist Terre< 
k«s>="»D/lE3: GOTO 
1704 

1782: PAUSE "Dist Solei i 
<UA)="»D: CURSOR 2 
4: PRINT "<UA=Di st 
Terre-Solei i )" 

1704: CLS î PAUSE "Ra^on 
<kms)= "ÎS/1E3 

1706: CURSOR 24: PRINT " 
Vit orbitale<»/s)= 

l?08:cîi : USING ’St.tt 
PAUSE 'Masse 
CT>=';0/6.673E-n/ 
lE3i USING 

1710: READ J: CURSOR 24: 
PRINT "Per iode(S)= 

" » J 

171 1 s CLS : PAUSE " Pesa 
nteur Cm/s2>" »0/S A 2 
: CURSOR 24: PRINT 
"(Terre* 9.32 m/s2 
> 

1715: IF F$="LUNE" LET J 
*1024: RETURN 

1720:RESTORE VAL L$(0>: 
READ D»0»S» J: 

RETURN 

1732: IF F$< >"LUNE" GOTO 
1787 

1784: CLS : RESTORE 1982 
: READ D 

1785: I=0:E=1 : INPUT "Re 
tour Terre<Q/N>?"» 
3$:~ IF B$="0" LET 
L$<0)=" 1935" : GOTO 


1787: CLS : PAUSE "Votre 
dest inat ion ?": 
CURSOR 24: PRINT " 



Système Solaire * 

* V 
i. 

1788! IF F$='TERR£' 

CURSOR 24! rrint * 
LUNE =2 ou Orbite 
=3 v î RESTORE 1985: 
READ E» ü,S» J 
1789: CURSOR 24: PRINT ' 
Hors Système Solai 
re= 4' 

1790ÏCLS : INPUT 'DE3TI 
NATION (1 a 4>?'.îl 
1791! IF Kl OR I >4 GOTO 
1790 

1792: IF 1=4 GOTO 1915 
1793! IF 1=2 OR 1=3 GOTO 
1846 

1795îPAUSE ‘'SYSTEME SOL 
AIRE": CURSOR 24: 
INPUT 'Planete ?'? 
F$:L$(0)= v * 
1796ÜF LEFT$ <F$,2>='M 
E v LE T L$<0}=' 1983 

1797:IF LEFT$ <F$,2>='V 
E v LET L$(0)=' 1984 

1798ÜF LEFT$ <F$,2)='T 
E v LET L$(0)= v 1935 

1799ÜF LEFT$ <F$,2>='M 
A v LET L$<0>= v 1986 

1808:1F LEFT$ < F$ , 2 ) = ' J 
U v LET L$(0)= w 1987 

1801:1F LEFT$ CF$,2>='S 
A 1 ' LET L$<0)=' 1988 

1802:1F LEFT$ <F$,2)='U 
R v LET L$(0>= v 1989 

1803:1F cEFTS <F*,2>='N 
E v LET LS(0>= v 1990 

V 

1810: IF L**:0) = v v GOTO 
1795 

1831 : US ING : RE STORE 
VAL READ D: 

GOTO 1981 

1346: IF 1=2 lET ^fs'LUN 
E': GOTO 1848 
1847: P(4lJSE 'ORBITE TERR 
ESTRE 1 ': CURSOR 24: 
ÎNPuT v D i s t orbita 
:e<k,As;> > v ;D:D=D*iE 
3: GOTO 1851 
1848: RESTORE 1982: READ 
B 

1851: US ING :V= SQR (CKA 
' :u=V^<: SÛR (D ((D 
+ H'/2))-l): GOTO 1 
983 

1852 :.PRInT ''Duree uoya* 
eU)s*î <2*.ïï* SQR < 

< < D + A .) . • 2 X» 3/ 3 . 986E 
14) )/ 172808* 

1353:IF 1=0 RESTORE 198 
5: READ D 
1355: GO SUS 1950 
1860: INPUT "üesc*nte(ü/ 
N>? v ?B*î IF B$='N v 
and 1=0 LET F$=*7E 
RRE V : GOTO 1787 
186ÜIF B*='N' AND F$= v 
-UNE 1 ' GOTO 1785 
1862ÜF B$='0' AND 1=0 
lET F$='TERRE* : 

GOTO 1872 

1863: IF B$='N' GOTO 173 
7 

1364: IF B$< > v û* GOTO 18 
60 

1865:IF B$='û v AND F$=' 
TERRE' GOTO 1872 


1870:GOTO 3010 
1872:P=A:m=A: GOTO 782 
1883: INPUT 'Retour (0/N> 
-"IBS: IF B*='0” 
LET P=D+S: GOTO 78 

1385:G0T0 800 
1 *90 1 : V= SQR <û-'A}: X=V* 
SQR 2: Y=J*< sqr < 2 
*D/<D+EO-l> 

1902: W= SQR <X*2*Ya2>:ü 
=M-V 

1903: K= EXP (Us Z): IF K 
>24 GOTO 1993 
1984: CLS : PAUSE “'Haute 
ur orbite départ*! 
CURSOR 24: PRInt v 
P ossibie<kms)= ¥ 5(A 
-S)/iE3 

1905:GOSUB 10000: if m> 
3E4 GOTO 1961 
1907ÜF 1=2 OR 1=0 GOTO 
1352 

1908: IF 1=3 PAUSE V ÛRBI 
TE TERRESTRE*: 
CURSOR 24: PRINT * 
Per iode(HH. ««> = *; 2 
*ïï* SQR <B*3/Q)/36 
00: GOTO 1883 
1909:1F 1=4 GOSUB 1930: 
GOTO 800 

1910: PAUSE 'Destination 
:'iF* 

1911 : CURSOR 24: PRINT * 
Duree uoyaee(J)=*; 
i2*K* SQR (<(D+E)/ 
2*149. 45E9>^3/1327 
2E 16) XI 72800 
1912:E=D: GOSUB 1950: 

GOTO 1860 

1915: V= SQR <0/AXX=V* 
SQR 2: Y=J* SQR 2- J 
: GOTO 1902 

1930:PRINT 'En chute li 
bre dans I espace» 
h i bernez . . .Adieu 
RETURN 

1950: READ Q,S,J: GOSUB 
1690 

1951 :A=ô: INPUT 'Haut o 
rb i te arr i veeCkms) 

? ' î A 

1952: IF A=0 GOTO 1951 
1953: A=A*lE3+$: RETURN 
I960: CLS : PRINT 'IMPOS 
SIBLE»M>30000 T': 
RETURN 

1961 : CLS : PRINT 'H. arr 
luee faible': 

GOSUB 1951: GOTO 1 
9Ô1 

1982: DATA 384. 4E6, 4. 397 
E12, 1738E3, 1024,2. 
36E6 

1983: DATA 0. 387, 1 . 663E1 
3, 2435E3, 47897, 7.5 
6E6 

1984: DATA 0. 723, 3. 26E14 
> 6050E3, 35039, 2. 59 
E6 

1985: DATA 1 , 3. 986E14, 63 
71E3, 29786, 86164 
1986: DATA 1.52,4.27E13, 
3395E3, 24141, 88580 
1987: DATA 5. 2, 1 . 266E17, 
718E5, 13064,35430 
1988: DATA 19. 19, 5.88E15 
•25E6, 6802, 38900 
1990: DATA 30.07,6.866E1 
5, 2485E4, 5434, 5690 
0 

1998: A=A+1E7: GOTO 1901 
3010:G=O/S A 2: 2=16E3: P=A 
• RANDOM :D=A/4:E= 


RND 1E4-5E3: NAIT 
30U:M=<R*C+Q)*lE3:Y= 
SQR (0/P) 

3012: PAUSE 'Haut départ 
(«)*'JP-S: CURSOR 
24: PRINT 'Dist ba 
se(»)='îD: IF SGN 
Ea-l GOTO 3016 
3014:PRINT 'Ecart later 
al(m)='5Eî' Droit 
e': GOTO 3017 
3016:PRINT 'Ecart later 
a!(«)='îE»' Gauche 

3017: INPUT 'Pi lote auto 
mat i*ue<0/N)? v îB$: 
IF B$='0' GOTO 340 
0 

3018:IF B$< >'N' GOTO 30 
17 

3019: GOSUB 3710 
b024« PAUSE 'Bonne Chanc 
e ! ' 

3029: GOSUB 3340 
3030: NAIT 0 

3031 :B$= INKEY$ : IF B$ 
='H' GOTO 3040 
3032: IF B$='V' GOTO 384 

5 

3034: IF BS='G' GOTO 315 

0 

3036:IF B$='û v GOTO 316 

6 

3037: IF B$='P' NAIT :N= 
ABS <X-Y) : GOSUB 3 
350: GOSUB 3355: 
GOTO 3400 

3838: IF B$='F' GOSUB 36 
0 

3839: GOTO 3048 
3048: INPUT 'T-auz horiz< 
k9/s)?*?N: GOTO 30 
48 

3845: INPUT 'Tauz uertK 
■k*/s)? v 5J 

3048:1F Q<=8 LET J=0:N= 
0:K=0:Q=0 

3050:14= ABS N: GOSUB 32 
10:Y=Y+W* SGN N 
3054: W=K: GOSUB 3210: T= 
T+W* SGN U:E=E+T 
3058: 14= ABS J: GOSUB 32 
10: V=V+G~W 

3065: D=D-Y:R= SQR <D A 2+ 
£ A 2>* SGN D 
3070: X= SQR <Q/P> 

3080:1F INT Y< INT X 
LET P=P-V+(W-G)/2 
3082ÜF INT Y>= INT X 
LET P=P+(P/<2*(X/( 

X+(Y-X)))a2-1)-P)/ 

(ïï* SQR (Pa3/0)>î V 
=0: Y=X 

3090ÜF L$<0)=*1' and < 
P-S)<=0 LET V=0:P= 

S: GOTO 3100 
3092:IF L«(0) = *r AND ( 
P-SXl GOTO 3100 
3094 ïIF <P-S><=1 GOTO 3 
165 

3095:IF <P-S> >1 LET l$( 

8 ) = ' 0 ' 

3lûô: PAUSE 'Ec(ift.) = '; 

INT E» w VLun/s) = ' » 

INT T 

3110: PRInT 'Dwrt) = 'ï INT 
Rî 'H< t »> = 'îP-Sï 
CURSOR 24: PRINT ' 
VHu/s> = '? INT Y? v 
W='ÎV 

3140:1F Q<=8 GOTO 3148 
3145:G0T0 3031 
3150:U=-1 

3155: INPUT 'Tauz iauke 


•s)?'; K: GOTO 3048 
3160:U=1: GOTO 3155 
3165: 14AIT 

3170: IF ABS R<=3 AND V< 

1 PRINT 'Atternss 
a^e réussi ! “ : 
GOSUB 360: GOTO 36 
00 

3180:IF ABS R>3 AND V< f 
PRINT 'Atterri a ' 
ï INT Rî' m de Bas 
e': GOSUB 360: 

GOTO 3900 

318ÜPRINT 'CRASH. 

CURSOR 24: 
PRINT 'Vitesse tro 
p elevee. . . * 

3182: CURSOR 24: PRINT ' 
Destruction comple 
te../: GOTO 800 

32 1 0 : Q=Q-w/ 1 E3 : M=I«H4 : U= 

2* LN ( (M+14)/M> : 
RETURN 

3340: K=0: J=0: 14=0: U=0: T= 
0îN=0:X=0: RETURN 
3350: X=M*< 1-1/ EXP <N/Z 
>>: RETURN 

3355: M=M-X: Q=Q-X/1E3: 
RETURN 

3360:H=G*<P-S)/K: î= SQR 
<2*H/<K-G) ) : J=I+ 

SQR (2*(P-S-H)/G): 
i4=Y/2*J: IF DCI4 
GOSUB 3378 
3361: V=2 *W/Ja2 
3363: J=J+(D-I4)/Y 
3365: RETURN 

3370îD=D+ 2*I*P: BEEP 3: 
PRINT 'Trop pres,u 
ne orbite sup': 
RETURN 

3400: K=0: input 'Deccei 
erat ion mazi <«/s>? 
'ÏK 

3401 : IF K<=0 GOTO 3408 
3402: GOSUB 3360: GOSUB 
3730 

3404:PRINT 'Pour repren 
dre la main appuy 
ez sur touche SPC' 
3405: U=0: T=0: A=P~S 
3410:I4AIT 0 
3420: IF D>W GOTO 3460 
3430: N=V: GOSUB 3350: 

GOSUB 3355:D=D-Y+V 
/2:Y=Y-V:E=E+T: IF 
A<=H GOTO 3450 
3440: A=A-U-G/2: U=U+G: 

IF A<H LET A=H:D=V 
*I A 2/2: J*I:u=<K-G) 
*I:Y=V*I:E=-T*I 
3445: GOTO 3470 
3450: N=K: GOSUB 3350: 

GOSUB 3355: A=A-U+< 

/ K-G)/2:U=U+G-K: 

GOTO 3470 

3460:D=D-Yî IF D<I4 LET 
D=I4: T= ABS E/J* 

SGN E*-l:N=T: 

GOSUB 3350: GOSUB 
3355 

3470: R= SQR (D A 2+E A 2> 
3485:PRINT 'D(»)='; INT 
Ri *HO&) = 'ü INT A: 
CURSOR 24: PRINT ' 
Ec<m)=S INT Ei'Tp 
s<S)*'î INT J 
3487: IF Q<=0 GOTO 3540 
3490:1F INT J=30 BEEP 3 

3491: IF INT J=20 BEEP 2 

3492:1F INT J*10 BEEP 1 

3493:1F J<=0 LET V=U: 

GOTO 3165 

3495: B$= INKEY$ : IF B$ 



= “ “ GOTO 3520 
3496! IF B$=“F* GOSUB 36 
0 

3500! IF D< =W 

GOTO 3430 

3510! GOTO 3460 
3520ÜF D<i4 LET N*-H*<1 
-1/ EXP (V/2)> 

3521! IF D>14 LET N=0 
3523:P=A+S: IF U< >0 LET 
J=(1*a-1/ EXP <K/Z 
)) 

3525: V=L): i4=0î k=0: X=0: 

IF U=0 LET J=0 

3530Î-GOSUB 3710: PAUSE 
''Taux horiz=“?N: 
CURSOR 24: PRINT “ 
Taux vert i=“î J: 
GOTO 3830 


3540: WhIT î BEEP 5: 

PRINT “CARBU INSUF 
FISANT..“ 

3541 : CURSOR 24: PRINT “ 
CRASH DANS. . “ ? INT 
<2*A/< ABS U+ SÛR 
< ABS U rt 2+2*G*A) ) > 
î“ Sec. “î GOTO 800 

3600îINPUT “Voulez vous 
repartir dans 
I espace(0/N>?“»B$ 
: IF B$=“0“* GOTO 1 
5 

3601: GOTO 802 

3710: WAIT : PAUSE “COHII 
ANDES DE VOL* 

3720: PAUSE “Pour accel: 
H puis laux“: 
CURSOR 24: PRINT * 
Pour ralent:H puis 
-tàux“ 


3721: PAUSE “ G Gauche 
D Droite*: 

CURSOR 24! PRINT * 
Puis taux* 

3722: PAUSE “Poussée ver 
t ica le:*: CURSOR 2 
4: PRINT “ V puis 
taux* 

3723: PRINT “Pour repass 
er en pi iote auto 
mat i que: P“ 

3725: PRINT “Atterrissas 
e réussi si : Dist< 
=3 ai. et V.vert<l«/ 
s“ 

3730:PRINT “Fuel restan 
t appuyez F* 

3755: RETURN 

3900: INPUT “Decollasetû 
/N)?“îB$: IF B$=“0 


“ GOSUB 3340: L$<0) 
=“l*ïp=S: Y=0! GOTO 
3030 

3918! IF B$=“N“ GOTO 800 
3912:G0Tû 3900 
10000! N=(R+OQ)*K>( 1-1 /( 
25/K)>!N=M-R-C-Q: 
IF N>3E4 GOTO 1960 
10010: CLS : USING ¥ *m* 
t*: PAUSE “Masse t 
ota le T=“?M! 
CURSOR 24*. PRINT “ 
Nasse lanceur T=“? 
N 

10011: CURSOR 24: PRINT “ 
M.propersois T=“î 
N*23/24: USING : 
RETURN 


$ 


UNE PUISSANCE INÉGALÉE 
POUR VOTRE POCKET 


LOGICIELS POUR VOTRE PC 1500 


SOFT CALC 
SOFT 6RAPH 
SOFT STAT 
SOFT TEXT 
SOFT DRAW 
SOFT FONCTION 
SOFT EXTEND 
SOFT SYSTEM 
SOFT MIND 
6AME I et 2 


tableur professionnel avec graphiques.Utilisablesur imprimante //. 
graphiques de gestion et scientifiques , neuf types de graphiques, 
traitement statistique des données avec représentation graphique, 
traitement de textes sur imprimante CE 150 et imprimante parallèle, 
représentation graphique en trois dimensions , véritable mini CAO. 
tracé de courbes et de surfaces , merveilleux outil mathématique, 
extension de 70 fonctions au BASIC , une formidable puissance . 
système de gestion de RAM , inclut un mini CALC et un éditeur. 

3 jeux utilisant les grands principes de l'intelligence artificielle, 
des jeux vidéo en langage machine , un graphisme époustouflant . 


LOGICIELS POUR VOTRE PC 1550 


FREE CALC 
FREE 6RAPH 
FREE STAT 
FREE TEXT 
FREE BASE 
FREE DRAW 
FREE MONITOR 
JEUX 1 à 5 


tableur professionnel , possibilités de graphiques à l’écran, 
graphiques de gestion et scientifiques (sur CE-515 P), 
traitement statistique des données , compatible CALC et 6RAPH. 
traitement de textes sur CE 126 P et imprimante série, 
gestion de fichiers avec possibilité de calcul . Compatible CALC . 
représentations graphiques en trois dimensions (sur CE-515 P) 
moniteur désassembleur , avec initiation au langage machine . 
jeux vidéo en langage machine , jeux de reflexion , de cartes 


Nos logiciels sont disponibles sur 
cassette audio , avec notice détaillée. 

SICOB PRINTEMPS 

nous serons sur le stand du club des 
SHARPENTIERS , venez nombreux . 


REVENDEURS 

DISTRIBUTEURS 

contactez-nous 

au 

16(3) 976 83 74 


Je désire recevoir une documentation 

0 sur les logicielspour PC 1500 
□ sur les logicielspour PC 1350 

Nom 

Adresse 

f 

Ville 



AP SOFT 1 bis rue du printemps 
78230 Le PECO 16(3) 976 83 74 





SUBMARINER 


Les jeux textuels vous lassent, vous aimez la 
difficulté ? 

Alors, chargez vite SUBMARINER, un jeu tota- 
lement graphique (il n'exploite malheureuse- 
ment que la moitié droite de l'écran, du fait des 
parasites produits par la machine sur la moitié 
gauche). 

Une fois le programme chargé, faites /RUN/ si 
vous désirez voir la présentation, sinon faites 
DEF A. Dès la fin de la présentation ou dès que 
vous pressez DEF A, le programme vous 
demande le numéro du tableau que vous ten- 
terez de traverser. 

Lorsque vous aurez choisi, l'écran s'effacera, 
puis vous apparaîtrez sur le milieu de l'écran, 
sous la forme d'un petit point clignotant, qui 
se dirige vers la droite, et par la même vers le 
tunnel que vous aurez à traverser. Pour ce faire, 
vous userez des touches "8" pour monter et 
"2" pour descendre, je vous conseille d'anti- 
ciper vos actions, avec prudence ! car je n'ai 
pas placé de test avant le « GOTO INKEY$ », 
n'appuyez sur aucune touche à part "8" et 

De plus, méfiez-vous des interstices qui sépa- 
rent chaque matrice, en effet ils donnent l'im- 
pression d'avoir parfois assez de temps pour 
éviter un bloc, alors qu'il faut se mouvoir immé- 
diatement si l'on veut si l'on veut en réchap- 
per. Je vous conseille aussi de mettre le con- 
traste au maximum et de regarder l'écran sous 
un angle variant de 30° à 60°. 

Voilà, tout est dit en ce qui concerne le manie- 
ment du jeu, ne vous découragez pas dès les 
premières parties, c'est dur, mais on finit par 
y arriver ! 

Bonne chance ! 

A. Ozanne 


1 ■’ GOSUB 3008 
2: "A" CLEAR :X=£6067:Y 
=8 

3: INPUT "TABLEAU (1-5)? 
’îZslF <Z<0> OR (Z>5 
> GOTO 3 


4: IF 2=0 BEEP 3:CALL £ 
5E9:WAIT 30:PRINT "B 
y Et i ";END 

SïWAIT 0-.PRINT * * 

10: CALL £5A2: RESTORE 10 
00+<<Z-i)*30) 

15! FOR I=&6067 TO (£606 
7-39) STEP -1 
28: RE AD A:POKE I,A 
30: NEXT I 

35: RESTORE 1000 +<<z-i)* 
30) 

40: " "X=X-1 : IF X<=£6040 
BEEP 3: GOTO 2000 
42: IF (Y AND <PEEK X))< 
>0 BEEP l:GQTO 2 
45:P0KE X»Y OR (PEEK X) 
:READ XI: POKE X+1,X1 
50: GOTO INKEYf 
60:"8"Y=Y/<(Y>1)+1): 
GOTO "" 

70:"2"Y=Y*<<Y<64)+1): 
GOTO "* 

999: REM TABLEAU 1 
1000: DATA 0,0,0,0,0,97, 
99,99,103,97,97,67 
,7,15,71 

1010:DATA 95,67,67,103» 
113,97,71,115,67,7 
9,115,71,71,99,65 
1020: DATA 79,67,113,71, 
99,99,115,97,71,79 
1030:DATA 0,0,0,0,0,67» 

79.71.99.97.65.115 
,103,67,71 

1040: DATA 31» 15,31,63,3 
1,79,103,67,113,71 
,115, 103» 103» 115,1 
15 

1050: DATA 71,79,3,31,67 
,103,71,15,31,63 
1060:DATA 0,0,0,0,0,97» 
97,123,123,67,71,6 
7,115,115,99,97,12 

1.97.99.115 

1070:DATA 115,115,67,67 
,79,79,97,97,99,79 
,71,99,113,115,71 
1080: DATA 99,113,121,97 
,67 

1090: DATA 0,0,0,0,0,103 
,103,115,115,121,1 
21,97,99,71,99 
1100:DATA 103,115,103,3 
»121r-121» 121» 113,9 
9,71,79,71,103,103 
,103 

1110:DATA 103,99, 113,11 
3,99,103,79,79,67, 
113 

1120: DATA 0,0,0,0,0,79, 
71,99,113,120,124, 
120,64,99,112 


1 130:DATA 113,99,99,99, 
113,124,96,120,96, 
126,124,112,97,71, 
103 

1140:DATA 103,99,113,12 
1,67,71,99,97,121, 
115 

2000: ÜALL £5E9:BEEP 3: 
WAIT 130: PR INT "CH 
AMPION! ! ! v : GOTO 2 

3000: WAIT 00:PRINT * ": 
CALL £5A2 

3001: POKE £6000,79,73,7 
3,73,121,127,64,64 
,64,127,127,73,73, 
73,54 

3002: POKE 1600F, 127,2,4 
,2,127,127,9,9,9,1 
27,127, 9»9»9»il8»0 
,0,127,0,0,127,2,4 
,8,127 

3003: POKE £605E, 118, 9,9 
,9,127,34,65,73,73 
,127 

3005: POKE £6040,40,8,56 
,56,56,56,56,60,62 
,56 ,56 ,56 ,40, 24 ,8 

3006: FOR 1=1 TO 300: 
NEXT I 

3010: FOR I=&6000 TO £60 
27: POKE 1,127: NEXT 
I 

3020: FOR I=&6040 TO £60 
67: POKE 1,127: NEXT 
I 

3021: FOR 1=1 TO 100: 

NEXT I 

3025: CALL &5E9 

3026: WAIT 80:PRINT *BY 
ALAIN OZANNE" 

3030: INPUT "REGLE?(0/N) 
"50$ 

3040:IF Û$=*N* GOTO 306 
0 

3050: WAIT 60:PRINT "VS 
'DEVEZ GUIDER": 

PRINT "VOTRE VAISS 
EAU: *:PRINT "HAUT 
:8*:PRINT "BAS 
* 2 v 

3060: RETURN 

5000: REM ALAIN OZANNE 

5010:REM N. 41665 


SNAKY 


Voici un petit jeu très simple qui va nous per- 
mettre de vous donner quelques astuces. Voici 
en deux mots les règles du jeu : 

Vous commandez une chenille qui va devoir 
manger des vitamines. 

Le déplacement de la chenille est obtenu à 
l'aide des touches 2 (pour descendre), 4 (pour 
aller à gauche), 6 (pour aller à droite), 8 (pour 
monter). 

Pour manger la vitamine (point isolé sur le ter- 
rain), il vous faut lui rentrer dedans avec l'avant 
de votre chenille. Si vous mordez la queue ou 
si vous touchez le bord, la partie s'interrompt, 
dans le programme comment va-t-on faire pour 
déplacer la chenille sur l'écran, celle-ci pouvant 
effectuer de multiples virages ? 

Et bien, on va pour déplacer la chenille lui rajou- 
ter un point devant celle-ci et en enlever un der- 
rière. Ainsi on aura une illusion de mouvement. 

Pour gérer ceci, il nous faut un tableau dans 
lequel on mémorisera les coordonnées de tous 
les points de la chenille. Ce tableau évoluera 
à chaque mouvement de la chenille en faisant 
tourner les éléments de telle façon que l'on ait 
toujours au début du tableau, le début de la 
chenille. A ce stade, 4 petites idées apparais- 
sent immédiatement pour gérer cette chenille : 
Créer un tableau dans lequel on inscrira les 
coordonnées des points et sur lequel on effec- 
tuera une rotation d'un élément à chaque dépla- 
cement. Cette solution ne peut être prise, car 
elle serait trop lente. 

• Même idée, mais au lieu d'effectuer une rota- 
tion, on mémorise le rang du premier élément. 
Cette solution est assez lourde à gérer. 

• Même principe que la première idée, mais là 
on va utiliser au lieu d'un tableau, une chaîne 
de caractères (on stocke les coordonnées des 
points sous forme de chr$, 2 caractères par 
point). Là, la rotation s'effectuera très facile- 
ment grâce aux instructions MID$, RIGHT$ et 
LEFT$. Cette solution est la plus satisfaisante, 
mais limite la taille de la chenille à 40 points. 

• Dernière solution créer une zone tampon 
dans la mémoire, la gérer par POKE, et faire un 


petit programme en L.M se chargeant de cette 
rotation. 

C'est cette dernière solution qui a été choisie, 
car c'est la plus rapide. 

Autre petite astuce, pour gagner de la place et 
du temps, la solution qui a été adoptée en ligne 
1 10 pour obtenir par calcul, et sur une seule 
ligne le paramétrage des 4 directions. 

Avant de vous donner les explications ligne à 
ligne, il faut que vous sachez qu'il faut faire 
RUN la première fois pour utliser ce jeu et puis 
qu'après vous pourrez faire DEF « X ». 

Amusez-vous bien et essayez de refaire ce jeu 
avec les trois autres méthodes présentées. 

I.S. 


ligne 1 0 données du programme L.M. H = le 
high score de départ, X = adr 
programme 

ligne 20 données du programme L.M. suite, 
ligne 30 mise en place en mémoire du pro- 
gramme L.M. 

ligne 40 affichage de la présentation 
ligne 50 affichage de la présentation suite 
ligne 60 Affichage de la présentation suite 
ligne 70 affichage du cadre, initialisation de 
la chenille 

ligne 80 génération de la chenille de départ 
ligne 90 choix des coordonnées de la 
vitamine 

ligne 100 affichage de la vitamine 
ligne 110 gestion du clavier 
ligne 1 20 on met dans X et Y les coordonnés 
du point où l'on va. 

ligne 1 30 on effectue une rotation, on regarde 
si on est sur une vitamine, si oui on 
va à en 90. 

ligne 140 on regarde si on se mord la queue 
ou si on touche le bord du terrain. 
Si oui, on va en 160. 

ligne 150 on allume l'avant de la chenille, on 
efface l'arrière et on retourne sur la 
scructation du clavier en 1 10. 
ligne 160 fin de partie, on réinitialise le high 
score 

ligne 170 affichage du mot « end » et fin du 
programme. 


10: DATA &84, &02. 8.01 . 8.DB» 8.85» *02» &5D. 8.D 
8*8.86» 8.02» 8.FF > 8.DB* 8.87» 8.02* 8.5C» SDBî+f 
=20: X-8.5F0F 

20: DATA 8.03» 8.01» 8.02» 8.FF, &34» *24. &26» &2 
F » 8.03» 8.C3» 8.2B* 8.09* 8.37* . 5 

30: X=X+i: READ Q: IF QO.5 RüKfc X» Q: 
GOTO 30 

40: "X" CL S : UIAIT 0: CURSOR 14: PRînT 
"Snaky'-: GCURSOR (70.12): GPR INI 0 
C04FC80FC04FC80FF03": GCURSOR (116. 
16) 

50: GPRINT "1C22001C 141 400221 C000000002 
23E22002000242A2A10002000003E2A3E00 
2E2A3A" 

60: CURSOR 59: PRINT "Hl-scone: "ï US1NG 
"««MMPÎH: CURSOR 83: PRINT "Scone . 

. : 20 " 

70: LINE <10.0)-(61.31).B: RANDOM :X= 
RND (29)+10: Y= RND < 30) +U D=4î U=-l: 
W=0 

80: L=-42: FOR 1=L TO 0 STEP 2: POKE &5 
EF0+I * X-I/2» Y: PSET (X-I/2. Y): NEXT 
I: PRESET (X-L/2.Y) 

90: A= RND (50)+10: B= RND (30)+i: IF 
POINT (A* B) THEN 90 
100: PSEÎ (A, B) 

110: S= UAL INKEY$ : IF S< >0 IF INT (S/2 
)=S/2 LET D=S» 2= INT ( (D-l)/3) » W=-Z 
+1» U=D-2-Z*3 

120: Y= PEEK 8.5EF1+W»X= PEEK 8.5EF0+U 
130: CALL 8.5F10: POKE &5EF0.X.Y: IF X=A 
AND Y=B BEEP l:L=L-2: CURSOR 92: 
PRINT USING "####■■ î-L'2-l: GOTO 90 
140: IF POINT (X*Y) THEN 160 
150: PSET (X, Y) : PRESET ( PEEK (8.5EF0+L) 
. PEEK (8.5EF1+L) ) : GOTO 110 
160: BEEP 2: WAIT : IF H< -L/2-1 LET H=-L 
/ 2-1 

170: CURSOR 89: PRINT "end": CLS : END 



Programme de recherche d'une séquence de 
1 à 8 octets avec possibilité de masque. 
Faire RUN lors de la première utilisation. 

Puis DEF "D" si l'on veut choisir l'option écran, 
ou imprimante. 

DEF SPACE pour refaire une recherche. 


jour refaire 
1UE 


CODE MASQUE 

Le code masqué sera un code qui vérifiera tou- 
jours le test ainsi il permet de masquer une opé- 
rande si on passe dessus (ENTER directement) 
le code aura pour valeur 4D (Nop). 


SEQUENCE 

On donne sa séquence de codes (8 maxi), on 
presse ENTER sans rien introduire si l'on veut 
passer à la suite. 

ADRESSES 

On donne l'adresse du début et de la fin de la 
recherche. Si on presse ENTER la recherche 
s'effectuera de &0000 à &7FFF sur le 
PC-1350. 

L'ordinateur met environ 1 8 secondes pour par- 
courir 32 Ko. 

I.S. 

10: POKE 8.6498» 8,10. 864 , SF0, 690, 800, 80B» 
818, 882. 813» 618» 600, 803» 808» 8,84.8.15 
» 6F 4 

20: POKE 664A8, 814, 6E2. 897, 804, 882» 813» 
804 , 60A , 800 » 807 , 898 . 835 » 888 , 802 . 808 
» 8DB 

30: POKE 864B8. 813» 810» 898. 820» 883. 800» 
800, 808» 830» 8DA» 867, &FF. 838» 810 , 8C7 
.838 


i: POKE 864C8* 80D. 807,887,863.800,829» 
623.851 » 663,600,629,628,837,650,821 
,649 

i: POKE 664D8, 631 , 629» 61F, 698, 813» 604 , 
80A, 604 , 610 , 864 , 6F8 , 884 , 61B . 6F1 , 6B0 
*890 

i: POKE 664E8. 610. 86C, 6F8» 600, 607,819, 
837: POKE 66F07, 697, 664: GOTO “ " 
iï Y$= " " : X= INT < A/256> : GOSUB 80:X=A- 
X*256: GOSUB 80: RETURN 
: U= INT (X/16) : W=X-U*16: Y$=Y$+ CHR$ 
(48+U+(U>9)*7)+ CHR$ (48+W+(W>9)*7) 
ï RETURN 

"B=84D: INPUT "Code masque ?’*ÏB 
: POKE 664C3.B: FOR 1=0 TO 7: INPUT •• 
SeAuence : " î C: POKE 664F0+I,C: NEXT 
I: GOTO 130 

: J=I : 1=9: NEXT I: FOR I=J TO 7: POKE 
864F0+ I » B: NEXT I 

: D=&0000: E=61FFF : INPUT "0dr Début:" 

» D. "Ôdr Fin : "JE 

: D= INT ABS D: E= INT ABS E: IF CD>=E 
> OR (E>6FFF8) THEN 130 
: POKE 664F8» D-256* INT (D/256), INT 
<D/256)»E-256* INT (E/256) » INT (E/ 
256): IF Q$="Q" OR Q$="Y" PRINT s 
LPRINT 

: A=-lï CALL 66498: IF A<0 PRINT "Ter 
mine . . . " : END 

: GOSUB 70: PRINT "Trouve en "»Y$î" ( 
"ï USING "######"•» Ai ">": GOTO 160 
:"D"Q$="N": INPUT "Imprimante ?"»Q$ 
:Q$= LEFTf <Q$,1): GOTO " '* 
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LA LEÇON DE MUSIQUE 


PATRIMOINE 
INVESTISSEMENT 
BUSINESS 
ACCORDEUR 
FAST LOAD 



OTHELLO 
PUISSANCE 4 
FICHIER 
SUPER BIO 
GESTION DE STOCK 


JEUX 1 A 5 


ENFIN DU SERIEUX POUR VOTRE PC-1500 AVEC LOGI /STICK 


RENSEIGNEMENTS: HOT LINE 867.28.44 




LA PUISSANCE D’UN SYSTEME COMPLET 


GRANDE TABLE 

I 

TRAÇANTE 




ORDINATEUR 



Vous êtes 600 000 à travers le monde en France, à utiliser le 
plus puissant des ordinateurs de poche, le PC 1500. Un tel suc- 
cès est dû aux multiples possibilités de cet ordinateur qui se 
présente comme un véritable système informatique. 

Le SYSTEME 1500, c’est avant tout un BASIC puissant et 
rapide, qui par sa conception permet de gérer de nombreu- 
ses extensions, tant matérielles que logicielles. C’est aussi 
un microprocesseur, qui pour la première fois autorise la pro- 
grammation en langage machine sur un ordinateur de poche. 

A ce titre, le club a décidé d’ouvrir un dossier spécial sur ce 
1500 qui continue à tant vous passionner, et je tiens à remer- 
cier toutes les personnes qui y ont contribué et plus particu- 
lièrement Marc GIRONDOT. 

Pascal ABRIVARD 




















L’HISTOIRE DU PC 1500 LES EXTENSIONS 


* AVRILS! 

• Commercialisation du PC 1500 et de son 
imprimante, dès le début cet ordinateur de 
poche fascine, c'est le premier à disposer 
d'un langage évolué, d'une imprimante 
graphique et qui permet la programma- 
tion en langage machine. 

MAI 82 

Commercialisation du module 4K, CE 151 
Sortie du PC2 de TANDY, concurrent et 
compatible. 

JUIN 82 

La découverte du PC 1500 commence 

SEPTEMBRE 82 ~ 

Découverte des premiers codes LM 


OCTOBRE 83 

Commercialisation du module 16 K 

CE 161 

NOVEMBRE 83 

Interface RS 232 / parallèle. CE 158 


Les extensions du PC 1500 sont nombreuses, elles font, de cette 
m ar.hinp un système complet autonome et ouvert. , 

Il faut distinguer 2 types d’extensions, celles commercialisées 
par SHARP et celles réalisées par de bienheureux fanatiques. 


OCTOBRE 82 

Commercialisation du module 8K CE 155 


3 JANVIER 83 

Au club on programme en langage 
machine 


JANVIER 84 

SHARP sort son livre sur le LM du PC 1 500 

FEVRIER 84 

Les 512 codes du micro-processeur sont 
connus 

Sortie du PC 1500 A 

” MARS84 

Toutes les ROM ont été étudiées 

SEPTEMBRE 84 

Découverte dans une revue japonaise du 
CE 162 


% JANVIER 85 

Environ 30 logiciels commercialisés et 10 
périphériques pour le PC 1500, qui est 
dans sa pleine force de l'âge, les utilisa- 
teurs ne doivent pas regretter leur achat. 

Ce petit historique nous montre qu'il a 
fallu environ deux ans et demi pour arri- 
ver à une configuration complète et 
sérieuse, faisant du PC 1500 un système 
informatique à part entière. Ce qui est 
long, mais l'attente en valait la peine. 

Il est aussi important de signaler que le 
PC 1 500 a subi 4 cures de rajeunissement 
durant ces deux ans, qui ont porté sur la 
ROM dont ont connaît 4 versions. Ceci 
pose parfois des problèmes de compati- 
bilité au niveau du langage machine 
(exemple du driver clavier). 

De même il existe au moins deux types de 
ROM imprimante, cela nécessite une 
adaptation pour les programmes en lan- 
aaae machine qui utilisent l'imprimante. 


FEVRIER 83 

Une quinzaine de logiciels sont disponibles 

MÂRS83 

Commercialisation de la tablette 
graphique 

~ AVRIL 83 

Le club dispose de presque tous les codes 
LM standards 

~~MAI83~~ 

La ROM basic du 1500 est décortiquée 

JUIN 83 

Commercialisation du CE 159 (8K 
protégeables) 

~SEPTEMBRE83 

Apparition des premiers logiciels commer- 
cialisés (jeux et PC CALC 3) 


LES EXTENSIONS SHARP 

CE 150 : la fantastique petite table tra- 
çante 4 couleurs. 

• CE 151 : module 4 K normal. 

CE 152 s magnétophone à cassettes. 

. - CE 153 : une table à digitaliser, exten- 
[ sion de 140 touches sensitives au clavier 
du PC 1500. 

- CE 1 54* s mallette de transport, per- 
! met d'intégrer différentes extensions. 

• CE 155 : module de 8 K normal. 

• CE 156* : cassette caractères japo- 
nais, Katakana. 

CE 157* : module caractères japo- 
nais, Katakana. 

• CE 158 s interface parallèle et série, 
l'ouverture du PC 1500 sur le monde 
extérieur. 

• CE 1 59 : module 8 K protégé par pile. 

• CE 160 : EPROM de 8 K. 

• CE 161 s module 16 K protégé par 
pile. 

• CE 162* s interface cassette et 
j parallèle. 

CE 165 : programmateur d'EPROM. 



LES EXTENSIONS 
COMMERCIALISEES PAR RVS 

• TOOL 2* 5 interface cassette conte- 
nant un FAST LOAD. 

• VIDEO* : interface vidéo couleur, 
graphique, stylo optique. 

(*) indique que l'extension n'est pas commercia- 
lise en France, SHARP commercialise aussi des 
modules de programmes (mais encore une fois 
pas en France), reportez-vous 6 la liste des 
loaicielsl. 


• INTERFACE VIDEO 

(monochrome texte) 

• INTERFACE MINITEL 

(permet de relier le 1500 à un MINITEL 
par l'interface CE 158) 

• COMPOSEUR TELEPHONIQUE 

(certainement non agrée PTT 1) 

• EXTENSION 32 K 

(interne) 

• EXTENSION 64 K 

(externe) 

. INTERFACE JOYSTICK 

(une interface qui permet d utiliser des 
manettes de jeux) 

• INTERFACE CLAVIER 

(le PC 1500 est dirigé à partir d'un clavier 
standard) 

• CONVERTISSEUR 

(analogique-numérique) 

• SORTIE SON 

(permet l'utilisation d'un ampli ou d un 
haut parleur) 

. DIGICARD 

(interfaçage avec une table à digitaliser) 

Notez bien que toutes ces extensions sont 
l'œuvre de passionnés, et ne font pas I ob- 
jet d'une commercialisation. Nous vous 
demandons donc de ne pas saturer e 
standard du mercrdi après-midi, à la 
quête de renseignements supplémentaires 
sur ces extensions. 





LES LOGICIELS 


Tout le monde en est désormais conscient, les logiciels sont 
des éléments indispensables à tout ordinatew ( Ç v ert con- 
naître le succès. De ce point de vue le SHARP PC 1500 n a 
rienàredouter, c’est en effet le pocket qui dispose, et de lom, 
de la plus importante gamme de logiciels. Nous les avons j 
regardés de plus près pour vous. 


Dans la liste ci-dessous, les prix sont don- 
nés à titre indicatif, ils correspondent à une 
moyenne des prix des différents reven- 
deurs. Un signe (+) indique la présence 
d'un très bon logiciel, un signe (= celle 
d'un logiciel valable, un signe (-) celle 
d'un logiciel, qui par sa qualité ou son 


LOGI STICK 

(les logiciels les moins chers) 

POCKET SOFT 

(la gamme la mieux fournie) 


TANDY FRANCE 

(la gamme la moins connue) 

AP SOFT 

(les programmes de qualité) 


CHEZ LOGI STICK 


CALC 

SUPER GRAPH 
FICHIER 

FAST LOAD 
OTHELLO LM 
PUISSANCE 4 
JEUX 1 
JEUX 2 
JEUX 3 
JEUX 4 
JEUX 5 
MUSIQUE 


tableur avec graphiques 

4 types de graphismes 

Puissant, mais lent et prend beaucoup de 

mémoire 

Le seul en France, mais des problèmes 
un bon partenaire 6/6 ou 
très rapide et bon joueur 
jeux vidéo BASIC 
jeux vidéo BASIC 
Othello, Dame et Morpion 


jeux c 
jeux de réflexion 
assez surprenant 


PCCALC3 
PC GRAPH 
PC PLOT 
PC WORD 
PC BANK 
PC MACRO 
PCHEX 
PC MATH 
PCUTIL2 
PC DATABASE 
PC PERT 
PC PLAN 
PC BUDGET 
PC VISION 
XLM 


l'ancêtre des CALCs sur PC1500, peu puissant 
graphiques de gestion 
idem, fonctionne avec CALC 
traitement de texte sur CE 150 
gestion bancaire, un peu inutile 
macroassembleur très puissant (cf. RVS) 
moniteur, notice lamentable 
12 fonctions mathématiques 
19 fonctions BASIC 

très puissant, mais compliqué d emploi 
un bon logiciel professionnel d'aide à la décision 
non disponible 
non disponible 

simulation d'un écran, idée très intéressante ^ 
moniteur et référence LM, puissant mais complique 


250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

250.00 

400.00 


prix, est moyen et le signe (n) indique un 
logiciel, non testé. Le signe @ indique 
que le logiciel ne fait plus l'objet d'une 
commercialisation. 

En France, quatre sociétés se partagent le 
gros du marché qui sont dans l'ordre 
chronologique. 


IHI1V l i imm 

PERSONAL finance 
BUSINESS finance 
STATISTIQUE 
GAMEpeck 
INVASION 

■■ — 

non testé 
non testé 

de bonnes possitilités manque d'interactivite 
niveau moyen 
peu intéressant 

195.00 

195.00 

195.00 

195.00 

195.00 

(=) 

(-) 

CHEZ AP SOF 

T 

1 

1 1 


(+ 


(+) 

(+) 


SOFT CALC 
SOFT GRAPH 
SOFT STAT 
SOFTTEXT 
SOFT DRAW 
SOFT FONCTION 

SOFT EXTEND 
SOFT SYSTEM 
SOFT MONITOR 
SOFT MIND 
SOFT GAME 1 
SOFT GAME 2 


le plus puissant et le plus extensible 
celui qui propose le plus de graphismes 
statistiques, compatibles CALC, GRAPH 
le seul sur CE 150 et imprimante parallèle 
graphismes 3D, des possibilités intéressantes 
tracé de courbes et surfaces, un classique bien 
exploité . . 

70 fonctions, du bon et du moins bon, mais tout ! 
gestion de RAM, idée très intéressante 
macro-langage d'assemblage, désassembleur 
intelligence artificielle, réussi 
6 jeux vidéo LM 
4 jeux vidéo LM 


200.00 

150.00 

150.00 

150.00 

150.00 

150.00 

200.00 
200.00 
200.00 

80.00 

80.00 

80.00 


(+) 

H 

(+) 


(n) 


A l'étranger, nous connaissons peu de 
logiciels, ils proviennent principalement 
d'Allemagne, ou encore de chez Sharp. 



iru%i 

GRAPH DEVELOPEMENT 

non testé 

222222 


BUSINESS GRAPH 

un très bon logiciel, complet avec étude 

mm 

( + \ 


statistique 

222222 

VI 

GENERAL STAT 

non testé 

222222 


ELECTRICALENGINER 

non testé 

222222 


CIRCUIT ANALYS 

non testé 

222222 ! 


FINANCE 

non testé 

222222 


MATHS 
SHARP CALC 

non testé 

un bon CALC, mais un peu compliqué 

222222 

(+)• 


RVS DATENTECKNIK 



MAKRO 

HEXAMONITOR 
TOOL KIT 1 
TOOL KIT 2 
TOLLKIT3 
FORTH 

idem POCKET SOFT 

idem POCKET SOFT 

nouvelles fonctions, non testé (EPROM) 

fast load excellent (EPROM) , 

nouvelles fonctions, non testé (EPROM) 

non testé (disponible ?) | 

250.00 

140.00 

800.00 
800.00 
800.00 
?????? 

1+) 

(+) 

HECKEL 




FAST LOAD 

équivalent à LOGI STICK 

222222 

222222 

(n) 

TVS 

gestion de RAM 



Cette liste n'est certainement pas limita- 
tive. Elle ne comprend que les logiciels dis- 
tribués au grand public. Il faut savoir que 
de nombreux programmes ont été déve- 
loppés pour le marché vertical, comme 
ECODIAL de la société MERLIN GERIN un 
programe d'électricité chez MAZDA... 


Nous serions heureux que vous nous 
aidiez à agrandir cette liste. Si vous pos- 
sédez un programme qui ne figure pas sur 
cette liste, envoyez-nous un courrier en 
indiquant le nom du programme, son édi- 
teur et ce que vous en pensez. 




En attendant, vous trouverez ci-dessous les 
adresses qui sont en notre possession : 

AP SOFT 

1 bis, rue du Printemps 
78230 LE PECQ 


POCKET SOFT 

21, avenue du Gai Foy 
75008 PARIS 




LES ARTICLES 
SUR LE PC 1500 

Vous trouverez ci-dessous la liste de tous les articles se rap- 
portant au PC 1500, parus dans nos différents bulletins du 
club. La notation utilisé pour caractériser chaque article est 
la suivante : 


D : Divers 
G : Graphismes 
L : Langage machine 
B : Bricolage 


A : Astuces 
U : Utilitaire 
T : Témoipage 
P : Programme 


ARTICLE 


Présentation du PC 1500 
Explication des instructions PEEK et POKE 
Table d'équivalence BEEPs-Fréquence musicales 
Table des codes ASCII du PC 1500 
Programme TELECRAN 
Programme RENUM (simple) 

Petits graphiques 

Réassignation du clavier et des caractères 
Explications sur STATUS et RND 
Structure de la RAM programme et vidéo 
Les débuts du langage machine 
Programme COURSE DE VOITURE 
Programme MUSIQUE 
Petits graphiques 
Petits graphiques 
Présentation CE 153-CE 158 
Langage machine, les codes du LH5801 
Un BASIC étendu 
Un clavier KATAKANA, caractères imprimante 
Programme PC GRAPH 
Programme langage BASICOIS 
Programme EXÔ 7 
Petits graphiques 

FONCLINE - introduction d'une fonction 
Graphisme "NU" Le Club 
Présentation CE-161 et PC 1500A 
Traitement d'erreur par interruption 
Les MACRO INSTRUCTIONS 
Programme PETIT TRAIN 
Programme BASIC 1501 
Créer de nouveaux mots clés 
Erratum bulletin N° 5 
Programme CHECK SUM 
Langage machine l re leçon 
Analyse de PARETO 
La fonction IN PUT 
La valise du SHARPENTIER 
Championnat d'OTHELLO 

Problème de Robinet 
L'évaluateur du PCI 500 
Langage machine 2 e leçon 
Programme LABYRINTHE 
Programme DEFENDER 
Programme HANOI 
Composeur téléphonique 
Langage machine 3 e leçon 
Boucles et sous-programmes 
Programme DERIVATEUR 
Moniteur héxadécimal SHARP 
Tournoi d'OTHELLO au SICOB 
Liaison PC1500-MINITEL 
Les codes cachés du LH 5801 

Moniteur/Désassembleur 
Inversion Vidéo et applications 
Détournement du Clavier 
BASIC et zone RESERVE 
Les inconnues du mode RESERVE 
Langage machine 4 e leçon 



X. Lebegue 
P. Abrivard 
P. Abrivard 

B. Kokanoski 
Sharp 

C. Camus, V. Kombarj 
M. Loutter 
M. Girondot 
V. Ostromourhon 
P. Henri 
P. Abrivard 
P. Henri 
P. Abrivard 
P. Abrivard 


Nous tenons à remercier les auteurs de ment du LM, meme s i 
tous ces articles, sans oublier Philippe GAC par écrit, 
qui a beaucoup participé au développe- 


ra jamais rien mis 



TROIS LOGICIELS 
A L’ESSAI 

font défaut au PC 1500, ü s’agit bien entendu : 

• d’une interface vidéo, 

• d’une unité de disguettes. 


Malheureusement, il ne semble pas que 
SHARP ait décidé d'offrir au possesseurs 
de PC ces deux extensions, et les monta- 
ges de quelques prototypes ne peuvent 
répondre à vos désirs. C'est pour cette rai- 
son que nous vous proposons ici I essai de 
deux logiciels qui cherchent à remplacer 
en quelque sorte, ces extensions. Il s agit 
de PC VISION qui simule un écran, et de 
SOFT SYSTEM en ce qui concerne les dis- 


L'ECRAN VIRTUEL; 

Revenons à présent à cette simultation 
d'écran et aux possibilités d édition. Initia- 
lement le PC 1500 ne permet d'éditer 
qu'une seule ligne de 80 caractères à la 
fois, avec PC VISION, cette édition peut 
s'étendre à plusieurs lignes qui sont mémo- 
risées dans un écran virtuel 


quettes. Bien entendu ces deux logiciels ne 
résolvent qu'en partie le problème, mais 
il faut admettre que les possibilités propo- 
sées ne nous ont pas laissés indifférents. 
Le troisième logiciel à l'essai est d un tout 
autre genre, il s'agit de la LEÇON DE 
MUSIQUE. Ce programme, même si vous 
ne voyez pas immédiatement son utilisa- 
tion pratique se révèle tout de même 
comme un des plus étonnants. 


L’ESSAI DE PC VISION 

PC VISION, logiciel proposé par la société POCKET SOFT, 
permet de simuler un écran multilignes, et ^ 

but d’un éditeur pleine page. Le programme apporte un 
tadonnation radicale de davl« «tto 
d’édition, qui facilitent les calculs au davier, mas 
la pragrasunaticu. Il actes que ce programme ne.Peutfonc- 

taner avec Ira anciennes ROMs, du tait qu’il utilise le pnn- 

cipe du driver. 

UN NOUVEAU CLAVIER : 


A noter qu'il ne s'agit pas réellement d'un 
écran multilignes. En effet, lorsque I on 
entre une ligne, si celle-ci dépasse 79 
caractères, l'édition ne se poursuit pas sur 
la ligne suivante. Le nombre de lignes n est 
limité que par la mémoire disponible, cha- 
que ligne de n caractères occupant n+ 1 
octets. 

Quel est l'avantage de disposer de plu- 
sieurs lignes, si l'écran continue d'en affi- 
cher qu'une seule à la fois, allez-vous vous 
demander ? : Principalement à pouvoir 
stocker plusieurs informations, et à pou- 
voir facilement les récupérer . Cette possi- 
bilité permet par exemple de se servir de 
l'écran comme un petit bloc note : on 
stocke de ligne en ligne des messages 
alphanumériques. Mais c'est surtout inté- 
ressant pour exécuter des calculs au cla- 
vier : normalement on ne peut pas remon- 
ter de plus d'une opération, alors qu'avec 
PC VISION , on peut remonter dans 
l'écran et visualiser l'ensemble des calculs 
intermédiaires. 

Il est possible d'affecter à chaque ligne de 
l'écran une étiquette, permettant de rapi- 
dement se positionner sur telles ou telle 
ligne de l'écran. 

Par exemple on pourra indiquer le début 
d'un message ou d'un calcul. 


DEF F4 recherche d'une ligne 

par son étiquette. 

DEFF5 suppression de plu- 

sieurs lignes. 

DEF F6 recopie ' a '>9 ne vlsua ' 

Usée sur l'imprimante. 
DEF ENTER décompose une ligne 

en deux. 

DEF RCL concatène deux lignes. 

Ces fonctions ne sont pas les seules, et on 
regrette l'absence d un vrai cache clavier 
qui aurait permis de mieux s'y retrouver, 
celui imprimé sur l'une des pages du 
manuel n'étant pas au bon format. 


Tout d'abord certaines touches ont été 
modifiées, donnant un accès direct (sans 
passer par SHIFT) à des caractères très uti- 
lisés, comme la virgule, les deux points, 

« INS » et « DEL ». Ces caractères ou com- 
mandes sont directement affectés à qua- 
tre des touches RESERVE. 

La touche OFF est elle aussi modifiée de 
manière à conserver le contenu de I écran 
virtuel, et ne conduit plus à l'initialisation 
de l'imprimante. Pour obtenir un OFF nor- 
mal il faut faire SHIFT OFF. Par DEF OFF 

on obtient une méthode assez efficace de 


protection de l'ordinateur, qu'il est impos- 
sible de rallumer sans la connaissance 
d'un code. 

Les touches alphabétiques du clavier, ne 
donnent plus par SHIF des minuscules (il 
faut utiliser SMALL), mais directement des 
mots clés BASIC. On regrettera l'absence 
d'un cache clavier qui aurait facilite le 
repérage de telle ou telle instruction. 

Il faut signaler aussi la disparition du 
MODE RESERVE, mais celui-ci est large- 
ment compensé par la possibilité d'affec- 
ter du texte à n'importe quelles touches 
alphabétiques. On récupère le texte 
affecté par « RCL » « touche ». 


LES POSSIBILITES D'EDITION 

Si récran n'est pas vraiement un écran, 
l'éditeur quand à lui est vraiement p eine 
page. On le constate lors des déplace- 
ments à l'aide des touches habituelles de 
curseurs. Du point de vue édition, les pos- 
sibilités sont nombreuses, parmi elles, 
nous avons noté : 

DEF et DEF déplacement en tin et 
en début de ligne. 

DEF MODE déplacement d'instruc- 

tions en instructions. 

DEF CL supprime tout ce qui est 

à gauche du curseur. 
DEF Fl supprime la ligne 

affichée 

DEf p2 récupère une ligne 

précédemment détrui- 
te. 

DEF F3 permet de dupliquer 

une ligne. 


DU POINT DE VUE 
PROGRAMMATION : 

La première chose à noter c est la possi- 
bilité de travailler sur 9 zones de program- 
mes distinctes. Cette possibilité repose sur 
le principe de la fonction MERGE : Cha- 
que programme est géré séparément, et 
peut faire ici l'objet de corrections. 

La programmation est facilitée par PC 
VISION en plus de nouvelles fonctions 
spécifiques au mode « PRO », on peut en 
effet passer des lignes de programme 
dans l'écran virtuel, et profiter alors des 
nombreuses fonctions d'édition. On se ser- 
vira avantageusement des nouvelles pos- 
sibilités de déplacement, mais surtout es 
fonctions DEF ENTER et DEF RCL,simula- 
tion des fonctions 'COUPER-COLLER- 
COPIER' devenues très à la mode. 

Pour l'exécution des programmes, , on a le 
choix entre plusieurs modes, dont l'un per- 
met d'envoyer dans l'écran virtuel toutes 
les données introduites lors des INPUTS. 

CONCLUSION : 

PC VISION nous a séduit, plus pour son 
éditeur, que pour la présence de l'écran 
mutlilignes, d'ailleurs, le titre au pro- 
gramme est là pour vous le rappeler : r t 
VISION, éditeur pleine page'. Toutes les 
possibilités d'édition sont très apprécia- 
bles, principalement en mode pro- 
gramme. 

Deux critiques, qui par ailleurs se rejoi- 
gnent, sont à formuler à propos de ce logi- 
ciel : tout d'abord l'absence d'un cache 
clavier, qui est un handicap à l'utilisation 
du logiciel du fait des transformations du 
clavier et du nombre important de com- 
mandes. Deuxièmement, la notice bien 
que complète manque d exemples, c est 
plus un résumé détaillé des commandes 
qu'un manuel d'utilisation et cela nuît à 
l'exploitation d'un logiciel de qualité. 

P.A. 




C'est ce que propose la société AP SOFT 
avec le logiciel « SOFT SYSTEM », qui 
fonctionne avec un PC 1 500 muni de I ex- 
tention 16 K (CE-161), ce qui est logique : 
la RAM étant très sollicitée, il convient d en 
avoir un maximum. 

Vous n'avez jamais utilisé de disquettes . 
Sachez qu'une disquette se comporte un 
peu comme une cassette instantanée, où 
seul le nom d'un fichier permet d avoir 
immédiatement accès au dit fichier. 

Le programme SOFT SYSTEM utilise le 
même principe, mais le support magnéti- 
que (disquette), est ici remplacé par une 
partie de la mémoire vive disponible sur 
l'ordinateur. Pour gérer la 'disquette', on 
dispose de 1 2 Nouvelles fonctions BASIC, 
qui sont affectées en MODE RESERVE, il 
ne vous reste donc plus que 6 touches 
RESERVE vides pour vos propres affecta- 
tions. Pour 'activer' les nouvelles fonc- 
tions, à chaque allumage de l'ordinateur 
vous devrez taper : POKE &79D1, 4 
«ENTER». n a 

Je vous conseille personnellement d affec- 
ter cette séquence à l'une des touches 
RESERVE encore libre.' Ou encore si vous 
disposez d'une nouvelle ROM, de taper 
ceci : 

POKE &00, &BE,&E2, &4 A, 
&B7,&0F,&8B,&19,&9A « ENTER » 
POKE &20, &BA,&E3, 8t3 F «ENTER» 
POKE &785B,&00,&00 «ENTER» 

POKE &79D4,&55 « ENTER » 

C'est un petit DRIVER (cf bulletin n° 10) 
qui évite de taper POKE &79D1, 4 à cha- 
que allumage. Il utilise 3 octets pris sur les 
gabarits du MODE RESERVE, mais le con- 
tenu des touches n'est en rien modifié. 
Mais revenons un peu au programme qui 
nous intéresse. Il occupe 2 Ko de votre 
RAM et se loge de &C5 à &8C5. Le reste 
de la mémoire sera disponible soit pour le 
programmeur, soit pour la disquette vir- 
tuelle, ou RAM DISK. La fonction « PSET » 
permettra d'en définir la taille, sans tou- 
cher au programme BASIC présent dans 
l'ordinateur, et la fonction « VSET » visua- 
lisera la taille de votre RAM DISK. 

Les fonctions de sauvegarde sont très puis- 
santes : il est possible ae sauvegarder des 


L’ESSAI DE SOFT SYSTEM 

Vous reviez de disquettes ? Et bien non, toujours rien à l’ho- 
rizon, alors ü faut se débrouiller autrement, avec d’autres for- 
mules, la gestion de RAM par exemple. 

programmes BASIC par « PSAVE », d ou- 
vrir des fichiers par « OPEN », fichiers qui 
pourront recevoir des données numéri- 
ques ou alphabétiques par « PRT », et que 
l'on récupérera par « INP ». Il est aussi 
possible de sauvegarder du texte, entré à 
partir d'un petit éditeur de texte qu'incor- 
pore le programme, par « EDIT ». 

On dispose aussi d'un petit tableur dont 
les formules, qui sont gérées comme sur 
le CALC du SHARP PC 1 26, peuvent aussi 
être sauvegardées dans le RAM DISK. Ce 
petit CALC est bien conçu, simple mais 
interractif, il permet d'avoir accès et 
d'exécuter rapidement des opérations. 

La sauvegarde d'un tableau de variables, 
nécessite de passer élément par élément 
en utilisant une boucle FOR-NEXT, c est 
dommage car elle fait perdre un peu de 
temps. Les programmes en langage 
machine peuvent aussi être sauvegardés 
mais au prix d'une manipulation un peu 
hasardeuse sur les pointeurs. 

Pour recharger programmes, données et 
autres, vous disposez de toutes les fonc- 
tions usuelles, sauf un CHAIN qui aurait 
donné la notion de procédure. 

Vous avez, bien sûr la possibilité de 
détruire des fichiers ou d en changer le 
nom par respectivement « KILL » et 
« RENAME ». Et, enfin, pour finir la fonc- 
tion « DIR » vous permettra de connaître 
tout le contenu de votre RAM DISK. 

Le logiciel est accompagné d'un exemple 
de programmation, petit utilitaire BASIC 
qui joue le rôle d'un bloc note. Celui-ci se 
sert bien entendu copieusement des nou- 
velles fonctions. H est pratique mais ne 
comporte pas de traitement d erreur. 
Tapez ces quatre lignes et il sera parfait : 
La notice est convenable, et on y trouve 
des renseignements sur la taille des fichiers 
et les principaux pointeurs utilisés par le 


RETURN 

510: A=0: GOSUB 450: 

1F A=0WAIT : 

PR1NT ■’??": 

UAIT 0: RETURN 
515: KILL ("Def."+ 

STR$ A): KILL C 
"Tex. "+STR$ A) 

: IF A=NLET N=N 
-l: RETURN 

logiciel. Par contre, cette notice affirme 
que SOFT SYSTEM est incompatible avec 
l'interface CE 158, ce qui n'est pas tout à 
fait exact, disons plutôt que I utilisation des 
deux est un peu fastidieuse. En effet il fout 
réinitialiser l'octet &79D1 par 
POKE&79D1, 4 avant une instruction 


« SOFT SYSTEM » et faire OPN'LPRT' ou 
OPN"COM' avant une instruction du CE 
158. 

Pour conclure, on peut dire que SOFT 
SYSTEM est un logiciel bien adapté au PC 
1500, et même s'il ne remplace pas une 
unité de disquette, il répond bien au pro- 
blème et permet d'accroître considérable- 
ment les possibilités du 1500. On notera 
la présence du petit éditeur de texte, mais 
surtout du mini CALC qui rend bien des 
services. Bien sur, d'autres fonctions 
auraient été souhaitables, telles PCHAIN, 
PSAVEM, mais au détriment de la 
mémoire utilisateur, et c'est en fait un très 
bon compromis que l'on trouve sur la cas- 
sette SOFT SYSTEM. 




■Il 


410: A=0: GOSUB 450: 
IF AO0INIT# 0 
, CTex. "+STR$ 
A) : EDIT 0: 
RETURN 

420: WA1 T :PR1NT ■■? 
?” : klAl T 0: 


L’ESSAI DU LOGICIEL 

LA LEÇON DE MUSIQUE 


J'ai pris c^^S«defexistence de ce 
logiciel grâce à sa publicité. L'impression 
a été assez défavorable, le prospectus est 
très élogieux, à la limite du vraissembla- 
ble pour un PC-1500 et le label :3 e prix 
Arcade ministère de la culture 1984, n a 
fait qu'atténuer mes doutes. ( 

Le chargement de la cassette s est ettec- 
tué sans problème, et après la phase a ini- 
tiation, je l'ai essayé une première fois a 
l'intérieur des locaux du club, mais | ai du 
m'arrêter m'étant convaincu que les Shar- 
pentiers sont des personnes assez bruyan- 
tes pour que le PC-1500 ne fasse pas la 
différence entre ma musique, produite en 
sifflant, et le brouhaha ambiant ! Il sera 
donc préférble d'opérer dans un endroit 
relativement calme. Pour essayer ce logi- 
ciel dans des conditions plus confortables, 
je suis allé rechercher mon pipo enfoui 
dans un tiroir depuis la classe de 3 e , date 
de mes dernières partitions. Si je me sou- 
venais des positions que doivent prendre 
mes doigts pour jouer « Au clair de a 
lune », je ne_pouvais mettre un nom sur la 
note jouée, tt c'est là où ce logiciel devient 
tout à fait étonnant, c'est lui aui me I a dit. 
Comment ? C'est assez simp e, branchez 
la prise EAR (grise) du cable de laision 
maqnéto et passez en mode enregistre- 
ment REC-PLAY. Vous pouvez aussi utili- 
ser un appareil du type VL TONE. Tapez 
DEFM, répondre à fa vitesse du métro- 
nome, intégré et la valeur du filtrage, c est 
I alors à vous, il vous écoute ! Jouez votre 
air préféré..., il affichera la note jouée, sa 
I justesse et le métronome se mettra en 


action. Une fois l'air exécuté, vous pou- 
vez imprimer la partition, effectuer une 
transposition automatique de notes ou 
bien donner la précision de la lecture. J ai 
obtenu une superbe partition, et les notes, 
miracle ( ?), étaient justes. Seulement quel- 
ques problèmes au niveau des mesures, 
mais il est vrai que je ne suivais absolu- 
ment pas le métronome. Grâce à la fonc- 
tion Oscilloscope vous pouvez visualiser 
en temps réel le son émis par votre instru- 
ment pour régler si besoin est, le niveau 
de sortie de votre amplificateur. Je suis 
maintenant convaincu que malgré le ton 
un peu trop amphatiaue de la Publicité, 
ce logiciel est bien «INCROYABLE » et 
« FABULEUX » qualificatifs qui en sont 
tirés. Mais il y a quelques manques : on 
ne peut pas sauvegarder sur cassette les 
notes, ce qui est gênant si vous avez joue 
une longue partition. 


De plus, je rappelle au concepteur du pro- 
gramme que le PC-1500 a aussi un buz- 
zer et que, même s'il n'est pas très puis- 
sant, il permet de jouer de superbes mélo- 
dies, par exemple PC BLUES de la logithè- 
que, alors pourqoi ne pas avoir inclus une 
possibilité d'essayer la partition qui se 
trouve en mémoire. Je suis à peu près sur 
que cela eut été très beau. Il n y a pas 
grand chose à redire sur la notice, bien 
qu'elle soit un peu succinte sur certains 
points, comme par exemple comment éva : 
tuer la justesse d'une note ou bien à quoi 
correspond la valeur entrée pour le filtre. 

Marc Girondot. 
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STRUCTURE D E LA RAM 

La seconde partie de ce dossier est consacrée à la structure 
mémoire du PC 1500. Nous avons tenté d’être aussi précis et 
complet que possible, répondant ainsi aux demandes de bon 
nombre d’entre vous. 


1 °) RAM basic 

Position de cette RAM en fonction des 
modules 


pi 




■ 

■ 



H 

CE151 



B 



□ 

H 



8,4800 

H 


m 


H 


■ 

mi 

H 


8,4000 

m 



m 




m 

a 




mn 


Le poids fort de l'adresse du début de 
RAM se trouve en &7863. 

On notera &NN cette valeur. De même, 
l'octet &7864 désigne la fin de celle-ci en 
prenant la valeur du poids fort de 
l'adresse du premier octet suivant la RAM. 
On notera &MM cette valeur. 

La représentation : adresse 1 

adresse 2 signifie : 

PEEKadressel *256+ PEEKadresse2 


2°) RAM SYSTEME 

Voir listing. 

3°) RAM PC-1500A 

1 Ko pour mettre des petits programmes 
en langage machine. 

4°) RAM en ME 1 

Les quelques octets (4x16+4) notés sur 
la carte mémoire sont en fait dupliqués 
quatre fois, les 32 Ko de mémoire supé- 
rieure sont occupés. 


STRUCTURE DE LA ROM 


&NNOO 

&NN08 

&NN22 

&NN3C 

&NN56 

&NNC5 

&7865/ 

&7867 

&7899 


à &NN07 
à &NN21 
à &NN3B 
à &NN55 
à &NNC4 
à &7865 
&7866 à 
&7868+1 


données pour mise en ROM des modules CE159 et CE161 
contenu du gabarit réserve I 
contenu du gabarit réserve II 
contenu du gabarit réserve III 
affectation du mode réserve 
&7866 - 1 zone réservée pour le langage machine 
&7867 &7868 programme basic 

à &7899 &789A - 1 zone utilisée 


&789A/ à &MMOO - 1 aire des variables dimensionnées 


1°) CE- 158 

PVl PUO 
&8000 -&8009 

&800A • &80IC 
&80ID - &80IF 
&8020-&8161 
&8162 -&8168 
&8169 -&841E 
8.841F - &87FF 


&880A - &88IE 
&881F 

818820 - 8.8886 
8.8887 - 8.9001 
8.9002 -8.94A2 
&94A3 - 8.94DF 
8.94EO- 8.9650 
8.9651 -8,965F 
8,9660 -8.9E73 
&9E74 - &9FFF 


2°) CE 158 

PVl PUl 
8,8000 -8,8009 


8.800A 

8.80ID 

8,8020 

8,8162 

8,8169 

8,8372 

&8380 

&83A4 

8,6888 

&87F4 

8,8800 


8,881F 

8,8820 

8,8887 

8,8893 

&98D1 

8.98E8 

8.9C75 


880IC 

8,01F 

&8161 

8,8168 

8,8371 

8,837F 

8.83A3 

8,8687 

8.87F3 

&87FF 

8,8809 

&88IE 

&87FF 


8,8892 

&98DO 

8.98E7 

&9C74 

&9C7D 


&9C7E - &9DFD 
&9DFE - 8.90FD 
&9DFE -8.9E1F 
8.9E20 - &9FFF 


nom et numéro du péri- 
phérique RS-232C 
programme 
rien 

table mots basic RS-232C 
rien 

programme 

rien 

nom et numéro du péri- 
phérique centronic 
programme 
rien 

table mots basic centronic 
rien 

programme 

rien 

programme 

rien 

programme 

rien 


nom et numéro du péri- 
phérique RS232C 
programme 
rien 

table mots basic RS232C 
rien 

programme 

rien 

programme 

donnée pour la gestion de 
la RS232C 
programme 
rien 

nom et numéro du péri- 
phérique centronic 
programme 
rien 

table mots basic centronic 
rien 

programme 

rien 

programme 

rien 

programme 

programme 

rien 

programme 


3°) CE 150 

&AOOO&A28A 

&A28B - &AFF9 
&AFFA - &AFFF 
&B000 -&BOO9 

&BOOA &B015 
&BOÎ6-&BOIF 
&BO20-&BOE9 
&BOEA- &B7FF 
&B800 - &B809 

&B80A- &B8IC 
&B8ID -&B8IF 
&B820 -&B884 
&B885 - &B887 
&B888 -&BFFC 
&BFFD - &BFFF 


données pour dessin des 
caractères 
programme MGP 
rien 

nom et numéro périphéri- 
que MGP 
programme MGP 
rien 

table mots basic MGP 
programme MGP 
nom et numéro du péri- 
phérique CMT 
programme CMT 
rien 

table mots basic CMT 
rien 

programme CMT 
rien 


4° PC- 1500 


&C00G 

&COOI-&CI1C 
&COID-8COIF 
&CO20- &C34E 
&C34F - &C36B 
&C36C - &C385 
&C386 - &C3FF 
&C4Û0 - &D6AC 
&DGAD- &D6BE 

&D6BF - &DCB2 
&DCB3 - &DCB5 
&DCB6-&E167 
&EI68 -&E17Û 

&EI71 -&FBE8 
&FBE9 -&FBF7 
&FBF8 -&FC9F 
&FCAO- &FE7F 

&FE80 -&FEBF 

&FECO-&FEFF 

&FF00 -&FFFF 


témoin table de mots 
basic 

programme 

rien 

table des mots basic 150i 
messages systèmes 
clavier avec DEF 
données diverses 
programme 

données pour lecture de 

paramètre 

programme 

rien 

programme 

données pour l'initialisa- 
tion des ports 
programme 
constantes sur 3 octets 
constantes sur 8 octets 
dessin des caractères à 
l'écran 

affectation du clavier 
normal 

affectation du clavier 
shifté 

adresses des macros 
instructions 
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RAM SYSTEME » 


: Tampon d'affichage n i & 3 
: Témoins d'afficheur 
:E$ 

:F$ , 

: G$ 

:H$ 

: 1 $ 

:J$ 

:K$ 

:L$ 

: M$ 

:N$ 

: 0 $ 

: Tampon d'affichage n 2 & 4 
: inutilisé 

:P$ 

:Q$ 

:R$ 

:S$ 

:T$ , 

:U$ 

: V$ 

: W$ 

:X$ 

:Y$ 

:Z$ 

: Pile système 
: Valeur d'OUSTAT 
: CONSOLE -1 RS 232 C) 

: CONSOLE -1 (PARALLELE) 


Codes CR ou LF 
ZONE 

Valeur SETDEV 
SETCOM 


785E 

785F 

7860 

7861 à 7862 

7863 

7864 

7865 à 7866 
7867 à 7868 

7869 à 786A 
786B 

786C 

7870 

7871 

7872 à 7873 

7874 

7875 


Adresse de détournement clavier 
Témoin de réaffectation clavier - Bits 6 à 0 
-bit 7=0; RPV 
adresse clavier 


= 0 - bit 7 / SPV 


Début d'un programme BASIC en ROM 
Début de la RAM 
Fin de la RAM 

Adresse de début du BASIC en RAM 
Adresse de fin du BASIC 
Adresse du dernier MERGE 
Témoin BEEP & RMT 

Tampon pour la sauvegarde des Paramètres 

Condition du WAIT 
Valeur du WAIT 
Conditions du curseur 
Valeur du curseur 


d'affichage si RCL 


7876 

7877 

7878 

7879 
787A 
787B 

787C à 787D 
787E à 787F 

7880 

7881 

7882 

7883 à 7884 

7885 

7886 6 7887 

7888 

7889 
788A 
788B 
788C 
788D 
788E 
788F 

7890 
i 7891 

7892 

7893 

7894 

7895 

7896 

7897 
i 7898 

S 7899 à 789A 
’ 789B 
789C à 789D 
789E à 789F 
78A0 à 78A1 
78A2 à 78A3 
78A4 à 78A5 
i 78A6 à 78A7 
! 78A8 à 78A9 
1 78AA à 78AB 
78AC à 78AD 
78AE à 78AF 
78B0 à 78B1 
i 78B2 à 78B3 
I 78B4 à 78B5 
| 78B6 à 78B7 
ï 78B8 à 78B9 
ï 78BA à 78BB 
i 78BC à 78BD 
i 78BE à 78BF 
j 78C0 à 78CF 
S 78D0 à 78DF 
! 78E0 à 78EF 
! 78F0 à 78FF 
? 7900 à 7907 
i 7908 à 790F 
i 7910 6 7917 
7918 6 791F 
7920 6 7927 


Fréquence du BEEP 
Témoin d'interface cassette 

Initialise ou pas curseur selon Ul quand VMJ 92 

Clignotement 

Position de visualisation 

Paramètre d'affichage 

: Pointeur de pile pour VMJ 06 & 32 
: Adresse variable actuelle 
: Type variable actuelle 
: Adresse variable précédente 
: Type variable précédente 

: Témoin d'arrêt 
: Pointeur du tampon d'entrée 
: Dimension du talbeau (1 ou 2) 

: TRON / TROFF 
: Condition de TRACE 
: Pointeur tampon de sortie 
: Pointeur FOR 
: Pointeur GOSUB 
: Pointeur données 

: Pointeur tampon de chaîne 
: Condition USING 
: USING Partie entière 
: USING caractères 
: USING Point et Partie décimale 
: Adresse de début de l'aire des variables 
: n d'erreur 
: n de ligne en cours 
: Adresse de début du BASIC 
: Adresse de fin du BASIC 
: n de ligne suivante 
: Adresse de début du BASIC 
: Recherche du début de la ligne présentée 
: Recherche n de ligne 
: Recherche début de ligne +3 
i : Adresse d'arrêt 
: n de ligne d'arrêt 
: Adresse de début du BASIC 
: Adresse de l'erreur 
: n de ligne de l'erreur 
: Adresse de début du BASIC „ 

: ON ERROR - bit 7 de 78B8 pas de ON ERROR 
i : Ligne ON ERROR 
) : Adresse de début du BASIC 
: Pointeur DATA 
: ; A$ 

: :B$ 

:C$ 

:D$ 

' : A 
; :B 
r : C 
: : D 
r : E 






7928 à 792F 


7930 à 7937 

G 

7938 à 793F 

H 

7940 à 794F 
7948 à 794F 

1 

kmmmmmmmmrns 

7950 à 7957 

K 

7958 à 795F 

L 

7960 à 7967 

M 

7968 à 796F 

N 

7970 à 7977 

0 

7978 à 797F 

P 

7980 à 7987 

Q 

7988 à 798F 

R 

7990 à 7997 

S 

7998 à 799F 

T 

7900 à 79A7 

U 

79A8 à 79AF 

V 

79B0 à 79B7 

W 

79B8 à 79BF 

X 

79C0 à 79C7 

Y 

79C8 à 79CF 

Z 

7900 

Témoin PU ou PV 

79D1 

Valeur OP 

7902 


79D3 


7904 

Si 85 dérivation clavier 

79D5 


79D7 


79D8 


79D9 


79DA 

85 interruption 

79DB à 79DC 

79DD 

79DE 

Adresse interruption 

79DF 

79E0 à 79E1 

Valeur du X GRAPH 

79E2 à 79E3 

Valeur du Y GRAPH 

79E4 à 79E5 

Compteur de limitation verticale 

79E6 

Valeur absolue horizontale 

79E7 à 79E8 

Compteur de limitation horizontale 

79E9 

Stylo levé ou abaissé 

79EA 

Type de ligne 

79EB 

Compteur LINE 

79EC 

Stylo levé ou abaissé 

79ED 

Moteur X 

79EF 

Témoin du Port moteur 

79F0 

OTEXT/ 255 GRAPH 

79F1 

Témoin batterie et changement styli 

79F2 

de ROTATE 

79F3 

de COLOR 

79F4 

de CSIZE 

79F5 

Utilisé par Imprimante 

79F6 


79F7 


79F8 

Utilisé par Imprimante 

79F9 

Utilisé par Imprimante 


MEMORY MAP DU PC 1500 ET PC 1500A EN MEO ET EN ME1 



8 Ko 16 Ko 


RAM version de base PCI 500 
2 ko 


CE151 RAM 
RAM 
4 Ko 

8 Ko 


RAM version de base PC1500A 
6 Ko 


RAM système 1,5 Ko 


Duplication RAM système 1,5 Ko 


RAM PC1500A 1 Ko 



ROM CEI 50 
8 Ko 


ROM PCI 500 ou PC1500A 
16 Ko 


I Ports CE150 


I Ports CEI 58 



0 





















PREMIERES LIGNES 


Quelques astuces et découvertes non mentionnées dans le manuel 
d'utilisation et la présentation du nouveau P.CP/M implanté spé- 
cialement par SHARP ; tel est le menu de ces premières lignes con- 
sacrées au MZ 800. Débuts timides mais prometteurs car, à mesure 
que nous découvrons cette machine, elle ne cesse de nous étonner 
par ses multiples possibilités, tant matérielles que logicielles. 
Cette rubrique, comme l'ensemble des pages de nos bulletins ; c'est 
d'abord la vôtre, heureux possesseurs de ce petit bijou. Envoyez- 
nous vite vos découvertes et vos réalisations, nous pourrons ainsi 
exploiter ensemble plus rapidement les nombreuses possibilités que 
nous offre ce nouveau MZ. 


LE BASIC 

Quelques instructions ne figurent pas dans le 
manuel ou peuvent être améliorées grâce à une 
modification très simple ; les voici, dans l'or- 
dre de nos découvertes : 

DIM : Le nombre de dimensions est théorique- 
ment limité à 4 ; vous pouvez augmenter ce 
nombre en tapant, en début de programme : 
POKE $8C7D, $FF (Quick dise) 

POKE $8BF8, $FF (Cassette) 

De plus, il ne sera plus nécessaire de dimen- 
sionner les tableaux par l'instruction DIM ; le 
BASIC le faisant automatiquement avec : 

POKE $8D06,0,0,0 (Q.D.) 

POKE $8C81,0,0,0 (cassette) 

GET : si vous tapez : 

P0KE$6879, 1 :P0KE$688E, 1 (Q.D.) 
P0KE$6870,1 : POKE$6885,1 (cassette) 
le curseur apparaîtra à chaque attente d'une 
touche par GET. Si vous remplacez les valeurs 
"1 " de ces POKE's par un "0", vous obtenez 
un GET à répétition. Le GET normal est récu- 
péré par la valeur 255 à la place de 1 ou 0. 
RND : Sans argument donne tout de même un 
nombre aléatoire. 

FRAC : N'est pas indiquée. FRAC (X) est égal 
à X-INT(X) ; utile et plus rapide dans certains 
calculs. 


MOD : N'est pas indiquée. M0D(1 1/3) donne 
2 soit le reste d'une division entière (MODULO). 
BEEP : N'est pas indiqué et crée... un BIP ; on 
peut aller jusqu'à 3 BIP's par BEEP (3), mais 
pas au-delà. EDIT n'est pas indiqué. EDIT 
numéro de ligne affiche la ligne considérée et 
place le curseur au début du contenu de cette 
ligne pour d'éventuelles corrections. 

Une dernière astuce : 

P0KE$8B4A,$FF (cassette) ou 
P0KE$8BCF,$FF vous permet de créer des 
variables pouvant avoir jusqu'à 255 caractè- 
res significatifs. 

P.CP/M 

CP/M est maintenant reconnu comme étant le 
système d'exploitation le plus universel sur les 
micro-ordinateurs 8 bits. La Version « Perso- 
nal CP/M » implantée par SHARP sur le MZ 800 
est compatible à 1 00% avec les versions 2.2x. 
de Digital Research. Elle bénéficie, en plus 
d'une série d'utilitaires spécifiques à la confi- 
guration MZ 800 dont voici une brève 
description : 

VCCP (Visual Console Command Processor). 
C'est le menu principal de CP/M ; présenté 
sous formes de fenêtre, c'est l'utilitaire de rêve 
pour accéder à toutes les commandes du 
système et profiter de toutes les particularités 
du MZ 800. 


VCCP.CFG : permet de créer votre propre 
menu de commandes dans VCCP. 
FORMAT.COM : Formate une disquette avec, 
au choix, recopie ou non du système sur la 
disquette. 

COPYDISK.COM : Permet la recopie physique 
d'une disquette sur une autre. 

SETUP.COM : Permet : 

1 . L'auto-exécution d'un fichier quelconque de 
la disquette. 

2. Le paramétrage des couleurs caractères et 
fond de l'écran. 

3. L'adressage des unités logiques d'une 
disquette. 

4. La vérification automatique de tout fichier 
enregistré. 

5. La sonorisation du clavier. 

6. Le paramétrage de la sortie console. 

7. Paramétrage de la sortie imprimante. 

8. Paramétrage de la sortie RS 232C. 

9. Paramétrage des touches de fonctions. 

Tous ces nouveaux paramètres peuvent être 
sauvegardés individuellement ou globalement 
sur disquette. 

DISKEDIT.COM : Permet de "regarder" cha- 
que secteur d'une disquette sous forme ASCII 
et HEXA. 

TIME.COM : Paramétrage et utilisation de la 
fonction horloge du MZ. 

FILES.COM : Une extension de la commande 
DIR classique de CP/M ; elle affiche les fichiers 
par ordre alphabétique avec la place occupée 
par chacun d'eux et la place restante sur la 
disquette. 

DISKDEF.COM : Une commande qui ajoute 
beaucoup à l'universalité du MZ 800 ; elle per- 
met, non seulement de lire tous les formats 
SHARP existant actuellement sur disquette 
MZ : MZ 80B, MZ 3500, MZ 5600 ; mais auto- 
rise également la lecture de FICHIERS AU FOR- 
MAT I.B.M. SIMPLE OU DOUBLE DENSITE. 
Cette particularité rend le MZ 800 compatible 
avec les fichiers I.B.M. PC sous format CP/M 
86 . 

Toutes les caractéristiques inédites rendent le 
MZ 800 encore plus puissant et évolutif. Les 
très nombreux logiciels déjà implantés ou en 
cours d'implantation (MULTIPLAN, WORLDS- 
TAR, D-BASE 2, etc.) promettent un bel ave- 
nir à cette configuration. 

S.B. 



ASTUCES 

psfiïl 



BLOCAGE DES TOUCHES 
« SHIFT-BREAK » 


Ce blocage interdit l'interruption d'un pro- 
gramme par « SHIFT-BREAK » et constitue 
ainsi une certaine protection contre le listage 
ou la recopie de ce programme. Pour l'obtenir, 
il vous suffira d'entrer, dans la première ligne 
de votre programme, l'instruction : 

POKE $1933,0,0,0 

Pour annuler ce blocage et revenir à la situa- 
tion initiale, tapez : 

POKE S 1 933, SCA, $7 1 , $ 20. 



Pour générer indéfiniment un son de hauteur, 
fixe, tapez : 

POKE 261 8, x où x est une valeur comprise 
entre 0 et 255 qui correspond à la hauteur du 
son émis. 

Pour générer ce son : USRI68) 

Pour l'arrêter : USR(71) 



MODIFICATION DU CURSEUR 

En mode majuscules : POKE $60, x :POKE 
$7F9,x 

x est une valeur comprise entre 0 et 255 et 
correspond au caractère du tableau des codes 
d'affichage (Manuel, page 1 59). 

En mode minuscule : 

P0KE$445, x :POKE $7FF,x 
Une seule restriction : Le curseur des majus- 
cules ne doit pas être le même que celui des 
minuscules. 



LECTURE ET ENREGISTREMENT 
2 FOIS PLUS RAPIDE. 


C'est une routine en langage machine qui vous 
permettra d'enregistrer puis de relire vos pro- 
grammes sous moniteur ROM à la vitesse de 
2400 bauds au lieu de 1 200. Pour entrer cette 
routine, tapez, sous moniteur : M C000, puis, 
un par un, les codes suivants : 

21 00 00 1 1 00 AO 01 00 10 ED BO D3 EO 
21 00 AO 11 0000 01 00 10 ED BO 21 AA 
09 36 30 21 4B OA 36 23 21 5A 07 36 OE 
C3 AD 00 

A la fin de l'entrée, tapez SHIFT-BREAK, puis 
sauvegardez cette routine sur cassette en 
tapant : 

SCOOOC02ACOOO 
Filename ? : K7 RAPIDE 

Cette routine (géniale) vous permet, ensuite de 
lire votre BASIC en 1 mn. 20 sec. ; elle a, par 
contre, un gros inconvénient ; elle doit être 
chargée à chaque mise en route de votre MZ. 

Pour palier à cela, nous avons implanté ce petit 
programme, dans la ROM MONITEUR du MZ ; 
il est ainsi possible, à chaque allumage, de choi- 
sir la vitesse de lecture. Si vous désirez obte- 
nir cette ROM, suivez la procédure indiquée 
dans notre précédent bulletin. 



DES POLYGONES 
SUR U TABLE TRAÇANTE 


Une astuce qui peut paraître évidente mais qui 
n'est pas indiquée dans la notice. Il suffit, pour 
tracer un triangle, un carré, ou n'importe quel 
« n'ogone » de modifier le pas de traçage de 
la fonction CIRCLE. En affichant 90°, on 
obtient un carré, 120°, un triangle, 45°, un 
octogone etc..., il ne reste plus qu'à jouer sur 
les angles de début et de fin de traçage pour 
orienter le n'ogone dans l'espace. 


Merci pour toutes ces astuces à Mrs. : 
SEVILLA 

C. SZCZEPANSKI 
H. PANETTO 
H. BENOIT 


ADAPTATION 

CENTRONICS 


L'adaptation d'une imprimante à 
entrée CENTRONICS est possible 
sur le MZ-700 et ne demande 
aucune modification de « hard ». 
L'interface d'origine est en effet 
du type parallèle et seul le signal 
de« strobe » n'est pas à la norme 
habituelle. 

D'autres part, les codes ASCII uti- 
lisés par SHARP sont complète- 
ment différents des codes stan- 
dard mw les minuscules. 

Ces aeux problèmes peuvent se 
résoudre en a soft », le premier 
en modifiant la routine de généra- 
tion du a strobe » du BASIC 
(adresses 1671Hàl69AH) et en 
ajoutant une routine de transco- 
dage de minuscules (2F00H à 
3000H). 

Pour entrer les octets correspondants il faut uti- 
liser le programme de copie du BASIC fourni 
dans le Sharpentier n° 8, et passer sous moni- 
teur par « Reset » quand le message « S BASIC 
BASIC SAVER HIT ANY KEY » apparaît, utili- 
ser ensuite la commande « M » du moniteur. 
Le listing désassemblé de ces routines est 
donné en annexe. 

Les adresses à modifier débutent alors à 2871 H 
et 4100H en raison du décalage de 1200H 
introduit par le programme de chargement. 
Une fois cette opération effectuée, sauvegar- 
der par J 1 1 08 (commande « J » du moniteur). 
Pour la connexion à l'imprimante, les liaisons 
sont à effectuer comme suit : 

RDP (MZ) à STROBE (imprimante) 

RDA (MZ) à BUSY (imprimante) 

RD1-RD8 (MZ) à DB1-DB8 (imprimante) 

GND (MZ) à GND (imprimante). 

Autres bornes : ne pas connecter. 

Les sharpentiers disposant de l'assembleur ZEN 
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trouveront également les modifications néces- 
saires (sans modification de l'EPROM 
moniteur). 

Ceux disposant d'un programmateur d'EPROM 
pourront modifier le moniteur (il est plus néces- 
saire de modifier ZEN dans ce cas). 

Enfin il est également possible d'ajouter un 
« line feed » après chaque « carriage return », 
ce que certaines imprimantes ne font pas auto- 
matiquement ; les octets à modifier pour le 
BASIC sont indiqués. 

Le transcodage des minuscules ne nous est pas 
apparu nécessaire pour ZEN, mais la routine du 
BASIC relogée pourrait être utilisée. 

H. BENOIT 


BASIC CENTRONICS STRO 


mm!®® 

BE 


1671 

3EFF 

LD 

A,FFH 

1673 

32BE16 

LD 

(16BEH),A 

1676 

3EQD 

LD 

A,ODH 

1678 

E5 

PUSH 

HL 

1679 

21BE16 

LD 

HL,16BEH 

167C 

34 

INC 

(HL) 

167D 

El 

POP 

HL 

167E 

C5 

PUSH 

BC 

167F 

D5 

PUSH 

DE 

1680 

E5 

PUSH 

HL 

1681 

F5 

PUSH 

AF 

1682 

3E80 

LD 

A,80H 

1684 

D3FE 

OUT 

FEH,A 

1686 

AF 

XOR 

A 

1687 

CD9B16 

CALL 

196BH 

168A 

Fl 

POP 

AF 

16BB 

F5 

PUSH 

AF 

168C 

CD002F 

CALL 

2F00H 

168F 

AF 

XOR 

A 

1690 

D3FE 

OUT 

FEH,A 

1692 

3E80 

LD 

A,80H 

1694 

D3FE 

OUT 

FEH,A 

1696 

Fl 

POP 

AF 

1697 

El 

POP 

HL 

1698 

DI 

POP 

DE 

1699 

Cl 

POP 

BC 

196A 

C9 

RET 


AINUSCULES 



2F00 

FE80 

CP 

80H 


DAEF2F 

JP 

C,2FEFH 

2F05 

FEA1 

CP 

A1H 



JR 

NZ,02H 


3E61 

LD 

1,61H 


FE9A 

CP 

94H 

2F0D 

2002 

JR 

NZ,02H 


2F11 

FE9F 

2F13 

2002 

2F15 

3E63 

2F17 

FE9C 

2F19 

2002 

2F1B 

3E64 

2F1D 

FE92 

2F1F 

2002 

2F21 

3E65 

2F23 

FEAA 

2F25 

2002 

2F27 

3E66 

2F29 

FE97 

2F2B 

2002 

2F2D 

3E67 

2F 2F 

FE98 

2F31 

2002 

2F33 

3E68 

2F35 

FEA6 

2F37 

2002 

2F39 

3E69 

2F3B 

FEAF 

2F3D 

2002 

2F3F 

3E6A 

2F41 

FEA9 

2F43 

2002 

2F45 

3E6B 

2F47 

FEB8 

2F49 

2002 

2F4B 

3E6C 

2F4D 

FEB3 

2F4F 

2002 

2F51 

3E6D 

2F53 

FEBO 

2F 55 

2002 

2F57 

3E6E 

2F59 

FEB7 

2F5B 

2002 

2F5D 

3E6F 

2F 5F 

FE9E 

2F61 

2002 

2F63 

3E70 

2F65 

FEAO 

2F67 

2002 

2F69 

3E71 

2F6B 

FE9D 

2F6D 

2002 

2F6F 

3E72 

2F71 

FEA4 

2F73 

2002 

2F75 

3E73 

2F77 

FE96 

2F79 

2002 

2F7B 

3E74 


2F7D 

FEA5 

2F7F 

2F81 


2F83 

FEAB 

2F85 


2F87 

3E76 


2F93 

3E78 

2F9 

5 


2F9 

7 


2F99 

3E79 

2F9 

B 

mm 

2F9 

D 

Bi 

2F9 

2FA 

F 

,1 

3E74 

FEBE 


2FA3 

2002 

2FA5 

3E7B 

2FA7 

FECO 

2FA9 

2002 

2FAB 

3E7C 

2FAD 

FE80 


2FC3 

3E40 

2FC5 

FEAE 

2FC7 

2002 

2FC9 

3E5C 

2FCB 

FEB2 

2FCD 

2002 


■cBEl 

2FD 3 

2002 

2FD 5 

3E7C 

2FD 7 

FEBA 

2FD 9 

2002 

2FDB 

3E7D 

2FDD 

FEFB 


!jj 



inj l 


H l 



"3 

SKli 















MODIFICATION DU K-BASIC V.5.3 


ROUTINE DE GENERATION DE LINE FEED. 

POUR L'UTILISER, IL FAUT MODIFER LE 
DEBUT DE LA ROUTINE DE STROBE COMME 
SUIT: 

1673 CDF82F CALL 2FF8H 

1676 3EOA LD A,OAH 


MONITEUR CENTRONICS 


018F 

47 

LD 

B, A 

0190 

3E80 

LD 

A,80H 

0192 

D3FE 

OUT 

FEH,A 

0194 

0E00 

LD 

C,00H 

0196 

CDB601 

CALL 

01B6H 

0199 

78 

LD 

A, B 

01 9A 

D3FF 

OUT 

FFH,A 

019C 

AF 

XOR 

A 

01 9D 

D3FE 

OUT 

FEH,A 

019F 

00 

NOP 


01E0 

3E80 

LD 

A,80H 

01A2 

D3FE 

OUT 

FEH,A 

01 A4 

C9 

RET 



ZEN CENTRONICS 


197B 

C5 

PUSH 

BC 

197C 

D5 

PUSH 

DE 

197D 

CD8319 

CALL 

1983H 

1980 

DI 

POP 

DE 

1981 

Cl 

POP 

BC 

1982 

C9 

RET 


1983 

47 

LD 

B, A 

1984 

3E80 

LD 

A,80H 

1986 

D3FE 

OUT 

FEH,A 

1988 

0E00 

LD 

C,00H 

198A 

CDB601 

CALL 

01B6H 

198D 

78 

LD 

A, B 

198E 

D3FF 

OUT 

FFH,A 

1990 

AF 

XOR 

A 

1991 

D3FE 

OUT 

FEH,A 

1993 

3E80 

LD 

A,80H 

1995 

D3FE 

OUT 

FEH,A 

1997 

C9 

RET 



NOUS SIGNALONS ! 

AUX PARESSEUX QU'ILS PEUVENT i 

SE PROCURER LA CASSETTE BASIC I 

CENTRONICS AU CLUB, i 

AU PRIX DE 70 F. ! 


Une erreur mettant en cause le bon fonction- 
nement de l'ordre NULL a été découverte. Nous 
allons la corriger tout d’abord : 

Charger le Basic puis retourner au moniteur par 
Shift Break. Grâce à la commande M, on modi- 
fiera les octets suivants : 

10FD 34 (identificateur K-Basic V.5.4) 

3CE8 C3 
3CE9 24 
3CEA 6F 

81 24 et suivants : E5 CB BF FE 03 20 01 AF 
C3 EB 2A 

Le programmeur courageux pourra profiter de 
cette correction pour incorporer au Basic, une 
légère amélioration du traitement des erreurs. 
En effet lorsqu'une erreur se produit, le Basic 
nous indique le type de l'erreur et la ligne où 
elle se produit. LIST, permet alors l'affichage 


de cette ligne. Cependant, lorsque la ligne com- 
porte plusieurs instructions, il est parfois diffi- 
cile de voir laquelle a provoqué l'erreur. La 
modification que je propose permet l'affichage 
tout au début de l'instruction en cause, du 
caractère (peu utilisé) de code ASCII 7FH (voir 
page 158 du manuel). Le listing de la routine 
(qui s'implante dans la seconde zone libre du 
Basic) vous est fourni avec ses explications. 
Par M, on écrira à 33A5 les 3 octets C3 AC 
6E ce qui permet de dérouter le traitement des 
erreurs. 

Puis, toujours par M, on entrera, à partir de 
80AC (remarque : 80AC = 6EAC + 1 200) les 
codes du listing (seconde colonne c'est-à-dire 
CD 51 00... C 3H 4D 18). 

Avant de réenregistrer le Basic, par J8670, on 
vérifiera soigneusement les codes que l'on 
vient d'entrer. 


0000 

P 

MSGY: 

EÛU 

0000 

P 

BRKEY : 

EQU 

0000 

P 

INERR : 

EQU 

0000 

P 

PRINTM : 

EÛU 

0000 

P 

MEM7 : 

EQU 

0000 

P 

EXSTLN : 

EQU 

0000 

P 

ERRMO : 

EÛU 

0000 

P 

SPECIA : 

EQU 

0000 

P 

NL: 

EQU 

0000 

P 

CHLASC : 

EQU 

0000 

P 

ECRMES : 

EQU 

0000 

P 

WRIT: 

EQU 

0000 

P 

LIGBUF : 

EQU 

0000 

P 

LIGDCO : 

EQU 

0000 

P 

LIGMEM : 

EQU 

0000 

P 

SAUTLN : 

EQU 

0000 

P 

PRÎMES : 

EQU 

0000 




0000 



REL 

6EAC 




6EAC 

CD 5100 

CORREC : 

CALL 

6EAF 

2ADD72 


LD 

6EB2 

23 


INC 

6EB3 

7D 


LD 

6EB4 

B4 


OR 

6EB5 

CA4D18 


JP 


0051 H 
001 EH 
184DH 
1819H 
72E3H 
2CF0H 
72EDH 
74D3H 
0009H 
21DBH 
17E2H 
17D3H 
110FH 
427CH 
72DDH 
17F9H 
055EH 

6EACH 

MSGY Ecrit le message d'erreur 
HL, (LIGMEM) 

HL Teste si on est en programme 

A,L 

H 

Z, INERR 


6EB8 CD1E00 
6EBB CA4D18 
6EBE AF 
6EBF 321918 
6EC2 2AE372 
6EC5 CDF02C 
6EC8 DA4D18 
6ECB ED5BED72 
6ECF ED53E16E 
6ED3 11D374 
6ED6 4E 
6ED7 23 
6ED8 46 
6ED9 2B 

6EDA 78 C0RR1 : 

6EDB B1 

6EDC 2816 

6EDE E5 

6EDF D5 

6EE0 11 

6EE1 0000 SPEM : 

6EE3 ED 52 
6EE5 DI 
6EE6 El 

6EE7 2004 r~ 

6EE9 3E7F 
6EEB 12 
6EEC 13 

6EED 7E *“ 

6EEE 12 

6EEF 23 

6EF0 13 

6EF1 0B 

6EF2 18E6 

6EF4 CD0900 C0RR2 
6EF7 2AE372 
6EFA CDDB21 
6EFD CDE217 
6F00 3E20 
6F02 CDD317 
6F05 21D374 
6F08 23 
6F09 23 
6F0A 23 
6F0B 23 
6F0C 110F11 
6F0F D5 
6F10 CD7C42 
6F13 DI 

6F14 IA C0RR3 : 

6F15 B7 

6F16 2806 

6F18 CD5E05 

6F1B 13 

6F1C 18F6 

6F1E CDF917 C0RR4 : - 

6F21 C34D18 
6F 24 


CALL 

BRKEY 

Permet la sortie de la routine 

JP 

Z,INERR 

Par Shift Break 

XOR 

A 


LD 

(PRINTM), A 

Déconnecte l'imprimante 

LD 

HL,(MEM7) 

HL=n° de la ligne d'erreur 

CALL 

EXSTLN 

Teste si elle existe bien 

JP 

C,INERR 

Sortie sinon 

LD 

DEJERRMO) 

Stocke le pointeur sur l'instruction 

LD 

(SPEM), DE 

erronée dans la routine 

LD 

DE,SPECIA 

Va stocker la ligne de programme 

LD 

C,(HL) 

dans le Buffer Specia. 

INC 

HL 


LD 

B, (HL) 

BC= longueur de la ligne et HL= 

DEC 

HL 

pointeur sur début de ligne. 

LD 


Teste si la longueur est nulle 

OR 

c 


JR 

Z,CORR2~ “ 

Si oui, sortie 

PUSH 

HL 


PUSH 

HL 


DEFB 

11H 

Teste si on est arrivé sur le début 

DEFW 

000H 

de l'instruction erronée. 

SBC 

HL, DE 


POP 



POP 

HL 


■JR 

NZ,+6 


LD 

A,7FH 

Si oui, place le caractère de code 

LD 

(DE), A 

7FH 

INC 

DE 


-LD 

A, (HL) 

Transfère les autres caractères 

LD 

(DE), A 


INC 

HL 

Avance les pointeurs et diminue la 

INC 

DE 

longueur à transférer. 

DEC 

BC 

' ' * ■ 

JR 

C0RR1 — ~~ 


CALL 

NL 

Passe à la ligne sur l'écran. 

LD 

HL,(MEM7) 

HL= n° de ligne (en Hexadécimal) 

CALL 

CHLASC 

Le convertit en décimal ASCII dans 

CALL 

ECRMES 

Buffer et l'écrit à l'écran. 

LD 

A,20H 


CALL 

WRIT 

Ecrit ensuite un espace 

LD 

HL,SPECIA 

Reprend la ligne se trouvant dans 

INC 

HL 

Spécia et fait pointer HL sur le 

INC 

HL 

début effectif (on saute les 4 

INC 

HL 

premiers octets : long. + n°) 

INC 

HL 


LD 

DELIGBUF 


PUSH 

DE 


CALL 

LIGDCO 

Décode la ligne à LIGBUF 

POP 

DE 

Début de ligne décodée 

LD 

A, (DE) •*-“ 


OR 

A 

Ecrit les caractères, un par un 

-JR 

Z,C0RR4 

jusqu'au 00 final 

CALL 

PRÎMES 


INC 

DE 


JR 

CORRS—* 


•CALL 

SAUTLN 

Passe à la ligne sur l'écran 

JP 

END 

INERR 

Sortie de la routine 


PROLONGEZ 
L'EXISTENCE 
DE VOS 
CLAVIERS 


Un certain nombre de SHARPENTIERS, inquié- 
tés par la façon dont leurs rejetons (ou leurs 
petits frères) utilisaient les 1 0 jeux fournis avec 
le MZ-700 se sont empressés d'acheter les 
manettes de jeux (joysticks) dès leur sortie pour 
épargner les malheureuses touches de cur- 
seurs. 

Ce fut donc une déception générale (et des 
coups de téléphone angoissés au club : 

« au secours mes manettes ne fonctionnent 
pas » quand ils s'aperçurent, que dans la quasi- 
totalité des cas, ces programmes n'avaient pas 
été conçus pour fonctionner avec des joysticks. 
Pour remédier à ce problème, la seule solution 
aurait été de corriger tous ces programmes, 
mais une astuce simple permettait d'éviter ce 
travail long et fastidieux. En effet, il est bien 
connu que l'optimisation d'un programme est 
proportionnelle à la paresse de son auteur et 
donc qu'aucun des concepteurs de ces pro- 
grammes n'avait écrit la partie de programme 
consistant à décoder la matrice du clavier pour 
savoir quelle touche est pressée alors que les 
4K de ROM du moniteur contiennent un sous- 
programme effectuant ce traitement. Ce sous- 
programme est appelé par CALL 001 B^ 
Nous avons donc choisi de réaliser un pro- 
gramme qui modifierait le moniteur de façon 
à ce que le sous-programme situé en 
OOlB^renvoie un caractère non en fonction du 
clavier mais en fonction du joystick. 

Comme il est impossible d'écrire dans la ROM 
nous avons utlisé la possibilité qu'a le MZ-700 
de remplacer les adresses 0000^ à OFFF|_j (qui 
contiennent de la ROM) par de la RAM par OUT 
(E3 h), A le programme ci-contre recopie donc 
octet par octet le moniteur dans cette zone à 
l'exception de la routine 001 8^ qui commen- 
cera par un JP COAC^j, adresse ou se trouve 
une routine qui contrôle les joysticks. Comme 
il aurait été gênant de ne plus pouvoir utiliser 
le clavier il est possible de passer du mode joys- 


tick au mode clavier (ou le contraire) en 
appuyant sur la touche £ (livre sterling). 

MODE OPERATOIRE : 

Entrer le programme avec l'assembleur « ZEN » 
ou avec « saisie L-M » et le sauvegarder. 


Pour utiliser le programme il suffit de le char- 
ger de lui préciser les touches utilisées par le 
jeu que vous voulez exécuter puis de mettre 
la cassette positionnée juste avant le jeu dans 
le magnéto. 

S. CHAGNOUX 







PAGE 2 


JOY->CLAU 

\GE 1 


JOY->CLA 

U 

61 

C069 

CB46 

BIT 

0,(HL) 

1 



ORG 

QCOOQH 






2 


•******CONTROLE**DES* 

*MANETTES**** 

62 

C06B 

7D 

LD 

A,L 

3 



LOAD 

$ 

63 

C06C 

CA70C0 

JP 

&,$ + 4 

4 COOO 

3E4E 

STICKX: 

LD 

A,4EH 

64 

C06F 

AF 

XOR 

A 

5 C002 

1802 


JR 

$ + 4 

65 

C070 

6F 

LD 

L, A 

6 C004 

3E56 

STICKY: 

LD 

A,56H 

66 

C071 

3E 

DB 

3EH 

7 C006 

F3 


DI 


67 



ADR: DS 

1 

8 C007 

E5 


PUSH 

HL 

68 

C073 

A5 

AND 

L 

9 C008 

D5 


PUSH 

DE 

69 

C074 

El 

POP 

HL 

10 C009 

3225C0 


LD 

(STICKX + 25H),/ 

70 

C075 

FB 

El 


11 COOC 

11FFFF 


LD 

DE.OFFFFH 

71 

C076 

C9 

RET 


12 COOF 

2102E0 


LD 

HL0E002H 

72 



;****CONVERSION**JOY- 

— CARACTERE’ 

13 COI 2 

CB7E 

BCL1 : 

BIT 

7, (HL) 

73 

C077 

00 

CARBIS: DB 

0 

14 COI 4 

CA12C0 


JP 

&,BCL1 

74 

C078 

2177C0 

JOY: LD 

HL, CARBIS 

15 COI 7 

CB7E 

BCL2: 

BIT 

7, (HL) 

75 

C07B 

7E 

LD 

A, (HL) 

16 COI 9 

C217CO 


JP 

N&.BCL2 

76 

C07C 

B7 

OR 

A 

17 C01C 

2E08 


LD 

L,8 

77 

C07D 

2803 

JR 

&, LECJOY 

18 COI E 

3E1 1 


LD 

A , 1 1 H 

78 

C07F 

3600 

LD 

(H L) ,0 

19 C020 

3D 


DEC 

A 

79 

C081 

C9 

RET 


20 C021 

20FD 


JR 

N&,$-1 

80 

C082 

CDOOCO 

LECJOY: CALL 

STICKX 

21 C023 

13 

BCL3: 

INC 

DE 

81 

C085 

FEOA 

CP 

10 

22 C024 

CB4E 


BIT 

1 .(HL) 

82 

C087 

3807 

JR 

C, GAUCHE 

23 C026 

CA23C0 


JP 

&,BCL3 

83 

C089 

FEF5 

CP 

245 

24 C029 

7A 


LD 

A,D 

84 

C08B 

3007 

JR 

NC, DROITE 

25 C02A 

B7 


OR 

A 

85 

C08D 

AF 

XOR 

A 

26 C02B 

7B 


LD 

A,E 

86 

C08E 

1806 

JR 

POSU 

27 C02C 

DI 


POP 

DE ■ 

87 

C090 

3E5F 

GAUCHE: LD 

A,« — » 

28 C02D 

El 


POP 

HL 

88 

C092 

1802 

JR 

POSU 

29 C02E 

FB 


El 


89 

C094 

3EC6 

DROITE: LD 

A,« - » 

30 C02F 

C8 


RET 

& 

90 

C096 

77 

POSU: LD 

(HL), A 

31 C030 

3EFF 


LD 

A, 255 

91 

C097 

CD04C0 

CALL 

STICKY 

32 C032 

C9 


RET 


92 

C09A 

FEOA 

CP 

10 

33 C033 

3E4E 

BOUT 1 : 

LD 

A,4EH 

93 

C09C 

3807 

JR 

C,HAUT 

34 C035 

1802 


JR 

$ + 4 

94 

C09E 

FEF5 

CP 

245 

35 C037 

3E56 

B0UT2: 

LD 

A,56H 

95 

COAO 

3806 

JR 

C, MILIEU 

36 C039 

F3 


DI 


96 

C0A2 

3EFC 

LD 

A,« i » 

37 C03A 

326AC0 


LD 

(B0UT1 +55), A 

97 

C0A4 

C9 

RET 


38 C03D 

324CC0 


LD 

(BOUT 1 + 25), A 

98 

C0A5 

3E5E 

HAUT: LD 

A, « t » 

39 C040 

E5 


PUSH 

HL 

99 

C0A7 

C9 

RET 


40 C041 

210ÔE0 


LD 

HL.OEOOOH 

100 

C0A8 

7E 

MILIEU: LD 

A (HL) 

41 C044 

CB7E 


BIT 

7, (HL) 

101 

C0A9 

3600 

LD 

(HL),0 

42 C046 

CA44C0 


JP 

&,$-2 

102 

COAB 

C9 

RET 


43 C049 

2E08 


LD 

L,8 

103 



;***SIMULATION**DU* 

*CALL*001B*’ 

44 C04B 

CB46 


BIT 

0,(HL) 

104 

COAC 

C5 

SIM01B: PUSH 

BC 

45 C04D 

7D 


LD 

A,L 

105 

COAD 

D5 

PUSH 

DE 

46 C04E 

CA52C0 


JP 

&,$ + 4 

106 

COAE 

E5 

PUSH 

HL 

47 C051 

AF 


XOR 

A 

107 

COAF 

CD33C0 

CALL 

BOUT 1 

48 C052 

3272C0 


LD 

(ADR), A 

108 

C0B2 

2804 

JR 

&,SUITE1 

49 C055 

3E09 


LD 

A, 9 

109 

C0B4 

3E31 

LD 

A,« 1 » 

50 C057 

F5 


PUSH 

AF 

110 

C0B6 

1827 

JR 

RETOUR 

51 C058 

AF 


XOR 

A 

111 

C0B8 

CD37C0 

SUITE1 : CALL 

B0UT2 

52 C059 

3D 


DEC 

A 

112 

COBB 

2804 

JR 

&, SU ITE2 

53 C05A 

20FD 


JR 

NZ,$-1 

113 

COBD 

3E32 

LD 

A,« 2 » 

54 C05C 

Fl 


POP 

AF 

114 

COBF 

181 E 

JR 

RETOUR 

55 C05D 

3D 


DEC 

A 

115 

C0C1 

21E3C0 

SUITE2: LD 

HL, MODE 

56 C05E 

20F7 


JR 

NZ,$-7 

116 

C0C4 

CDBD08 

CALL 

08BDH 

57 C060 

2E02 


LD 

L, 2 

117 

C0C7 

FEFB 

CP 

« £ » 

58 C062 

CB7E 


BIT 

7, (HL) 

118 

C0C9 

7E 

LD 

A, (HL) 

59 C064 

CA62C0 


JP 

&,$-2 

119 

COCA 

2808 

JR 

&JNUMOD 

60 C067 

2E08 


LD 

L,8 

120 

COCC 

B7 

CHOIX: OR 

A 


DB 


GAUCHE= »,1 
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121 

COCD 

280D 

JR 

&, MODEJ 

122 

COCF 

CDBD08 

CALL 

08BDH 

123 

C0D2 

180B 

JR 

RETOUR 

124 

C0D4 

EE01 

INUMOD: XOR 


125 

C0D6 

77 

LD 

(HL), A 

126 

C0D7 

CD3E00 

CALL 

003EH 

127 

CODA 

18F0 

JR 

CHOIX 

128 

CODC 

CD78C0 

MODEJ: CALL 

JOY 

129 

CODF 

El 

RETOUR: POP 

HL 

130 

COEO 

DI 

POP 

DE 

131 

C0E1 

Cl 

POP 

BC 

132 

C0E2 

C9 

RET 


133 

C0E3 

00 

MODE: DB 

0 

134 


.**** 

*****IMPLANTATION *********** 

135 

C0E4 

1170C1 

IMPLAN: LD 

DE, MSGH 

136 

C0E7 

CD4FC1 

CALL 

SAISIE 

137 

COEA 

32A6C0 

LD 

(STICKX + 0A6H),A 

138 

COED 

1186C1 

LD 

DE, MSGD 

139 

COFO 

CD4FC1 

CALL 

SAISIE 

140 

C0F3 

3295C0 

LD 

(STICKX + 95H), A 

141 

C0F6 

1 179C1 

LD 

DE, MSGB 

142 

C0F9 

CD4FC1 

CALL 

SAISIE 

143 

COFC 

32A3C0 

LD 

(STICKX + 0A3H),A 

144 

COFF 

117EC1 

LD 

DE, MSGG 

145 

Cl 02 

CD4FC1 

CALL 

SAISIE 

146 

Cl 05 

3291 CO 

LD 

(STICKX -F 91 H) , A 

147 

Cl 08 

115EC1 

LD 

DE.MSG1 

148 

Cl OB 

CD4FC1 

CALL 

SAISIE 

149 

Cl OE 

32B5C0 

LD 

(STICKX + 0B5H), A 

150 

cm 

1 167C1 

LD 

DE,MSG2 

151 

Cl 1 4 

CD4FC1 

CALL 

SAISIE 

152 

Cl 17 

32BEC0 

LD 

(STICKX + OBEH), A 

153 

Cl IA 

CD2700 

CALL 

0027H 

154 

Cl 1 D 

CD0600 

CALL 

0006H 

155 

Cl 20 

1 1 FOI 0 

LD 

DE.10F0H 

156 

Cl 23 

CD1500 

CALL 

001 5H 

157 

Cl 26 

CD2A00 

CALL 

002AH 

158 

Cl 29 

D3E1 

OUT 

(0E1 H ), A 

159 

C12B 

210000 

LD 

HL,0 

160 

C12E 

1100D0 

LD 

DE,ODOOOH 

161 

Cl 31 

010010 

LD 

BC,1000H 

162 

Cl 34 

EDBO 

LDIR 


163 

Cl 36 

21ACC0 

LD 

HL,SIM01B 

164 

Cl 39 

221 CDO 

LD 

(0D01BH + 1),HL 

165 

CISC 

D3E0 

OUT 

(OEOH),A 

166 

C13E 

2100D0 

LD 

HL,ODOOOH 

167 

Cl 41 

110000 

LD 

DE,0 

168 

Cl 44 

010010 

LD 

BC.1000H 

169 

Cl 47 

EDBO 

LDIR 


170 

Cl 49 

D3E3 

OUT 

(0E3H) , A 

171 

C14B 

2A0611 

LD 

HL,(i 1 06H) 

172 

C14E 

E9 

JP 

(HL) 

173 


. * * * * 

********SAI SI E* 


174 

Cl 4F 

CD0600 

SAISIE: CALL 

0006H 

175 

Cl 52 

CD1500 

CALL 

001 5H 

176 

Cl 55 

CDB309 

CALL 

09B3H 

177 

Cl 58 

CDB50D 

CALL 

0DB5H 

178 

C15B 

C3CE0B 

JP 

OBCEH 

179 

C15E 

424F5554 MSG1 : 

B 

« B0UT0N1 = » , 1 3 

179 

C162 

4F4E313D 
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179 

Cl 66 

OD 



180 

Cl 67 

424F5554 MSG2: 

DB 

« B0UT0N2= » , 1 3 

180 

C16B 

4F4E323D 



180 

Cl 6F 

OD 



181 

Cl 70 

16111148 MSGH: 

DB 

«EUHhaut = » , 1 3 

181 

Cl 74 

4155543D 



181 

Cl 78 

OD 



182 

Cl 79 

4241 533D MSGB: 

DB 

« BAS — », 1 3 

182 

Cl 7D 

OD 


rx 


183 C17E 47415543 MSGG: 

183 Cl 82 48453D0D 

184 Cl 86 44524F49 MSGD: 

184 C18A 54453D0D 

185 

186 
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C072 B0L1 

COI 2 





DROITE 

C094 GAUCHE 

C090 

IM PLAN 

C0E4 JOY 

C078 

MODEJ 

CODC MODE 

C0E3 

MSGH 

Cl 70 MSGB 





SI MOI B 

COAC SUITE1 

C0B8 


DB « DROITE = », 1 3 
END 
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BOL2 

CARBIS 

HAUT 

LECJOY 

MSG1 

MSGG 

STICKX 

SUITE2 


COI 7 B0L3 
C077 CHOIX 
C0A5 INUMOD 
C082 MILIEU 
Cl SE MSG2 
C17E MSGD 
COOO STICKY 
COC1 SAISIE 


C023 
COCC 
COD4 
COA8 
Cl 67 
Cl 86 
C004 
Cl 4F 



Vous connaissez certainement le 
proverbe « info » solvant : « Il 
existe autant de solutions à un 
problème donné qu'il y a de pro- 
grammeurs capables de le 
résoudre ». 

Le tri est un exemple type qui con- 
firme ce proverbe. 

Enoncé du problème : soit à ranger en ordre 
croissant une suite de nombres aléatoires. Pro- 
blème apparamment très simple et qui a cepen- 
dant déjà fait couler beaucoup d'encre. Voici 
un programme qui regroupe 7 façons différen- 
tes de résoudre ce problème. 

Notre propos n'est pas de décortiquer l'algo- 
rithme utilisé (encore que cela soit extrême- 
ment intéressant), mais plutôt de comparer leur 
efficacité c'est-à-dire leur rapidité. En effet, 
malgré la rapidité de plus en plus grande des 
ordinateurs, les tris sont encore des opérations 
longues dès que le nombre des données à mani- 
puler est important. Quand on sait qu'un tri de 
200 nombres peut prendre avec le même maté- 
riel 24 secondes ou plus de 5 minutes suivant 
la méthode employée, imaginez l'écart pour 
mille ou deux mille données. 

PROGRAMME : 

La structure et organisée autour d'un pro- 
gramme « maître » (ligne 50-1 30) qui gère les 
différents sous-programmes de tri (RIPPLE, 
BUBBLE, SHELL, SHELL-METZNER, INSER- 
TION PERMUTATION, QUICKSORT) et sous- 
programmes utilitaires. 

Afin que les résultats soient comparables le 
programme génère ensuite une suite de nom- 
bres aléatoires (B(X)) qui est chargé avant cha- 
que opération de tri dans le tableau A(X) et 
c'est ce tableau qui est classé en ordre crois- 
sant. Chaque sous-programme de tri travaille 
donc sur la même suite de nombres. 

La fonction Tl$ est initialisée à chaque début 
de sous-programme et relevée (dans T$) dès 
la fin du tri (avant toute autre opération) T $ est 
donc bien le temps nécessaire à l'opération de 
tri uniquement. 


RESULTATS : 

Avant de passer aux distributions de médail- 
les il est bon de signaler les remarques 
suivantes : 

1 °) Ces résultats ont été obtenus sur MZ-700 
BASIC (S) avec fonction ELSE. 

2°) Les temps relevés correspondent à une 


suite de nombres aléatoires donnés. Une autre 
suite aurait donné un autre résultat absolu 
(écart pouvant aller jusqu'à 10%) mais un résul- 
tat relatif identique. 

3°) Par contre il est possible que pour un autre 
BASIC le classement soit modifié. 

Médaille d'or : QUICKSORT : une méthode 
générale mais gourmande en octets. 

Médaille d'argent : SHELL-METZNER : sans 
doute le meilleur rapport simplicité/rapidité. 
Médaille de bronze : INSERTION : méthode très 
simple et particulièrement efficace pour clas- 
ser un fichier déjà partiellement en ordre 
(adjonction). 

G. PIDOUX 
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70 GÛSUB630 
80 ' 

90 F ÜRZ — 1 T D9 s N— N < Z ) : C=4*Z+1 s FÜRY-1 TD7 î L-2*Y+3s CONSOLE 19, 5, O» 40s CLSï CONSOLES PRINT 
"TRI ,, 5N$(V)r N="?N?" FICHES" s PRINT"REINI TI AL1SATIGN. . . " * FORX-lTONs A ( X ) «B <X) a G 

ÜSUB’/BOs NEXT s CURS0R20, 20* PRINT"TRI EN COURS..."? N 
1 00 I FM < Y ) >200THENCURS0RC , Ls PRINT " > > > " s GOTO 1 20 

110 ON Y G0SUB140, 230,280, 350, 450, 510, 560: FÜRX=lTÜ24s GOSUB/BOs NEXT! ÏE=60#0AL (MID 
♦ < T*, 3,2)) + VAL < R I GH T * < T* , 2 ) ) s M < Y ) -TE a CURSORC , L s PR I NTUS ING"###" ? TE s FûRX=l T0999 s NE 
XTX 

120 NEXT Y , Z s END 
130 ' 

140 REM TRI RIPPLE 

150 J 

160 TI *= " 000000 " s K -N- 1 

170 IN-OiFORI-lTOKc IFA ( 1 + 1 > «LA < I > A«A ( I + i > s A < I + 1 > -A < I > s A U > -As IN -1 
180 NE X T s I F I N< >OK«k ~ 1 s GOTO 1 70 
190 T*-TI*sRETURN 

200 ' J •• - . ' ' ' • . 

210 REM TRI BUBBLE 

220 - 

230 TI *-"000000" s FOR I - 1 TON - 1 s FOR J = 1 + 1 TON s IFA < J ) < A ( I ) A-A ( I > s A U > -A ( J ) s A < J ) -A 
240 NEXT * NEXT s T*=T I*s RETURN 

250 'V ■ ■ " • ■ • . 

260 REM TRI SHELL 

270 ’ 

2B0 T I *— "000000 " s E-N 

290 E«INTŒ*.5) s IFE< lT*«TI*a RETURN 

300 I N— O s FOR I - 1 TON -E s «3 — I +E s IFA(I) >AiJ>A=A<I> a A ( I > -A < J > : A < J > -A: IN-1 
310 NEXT s IF IN-1THEN300ELSE290 
320 ’ 

330 REM TRI SHELL-METZNER 

340 ’ 

350 T I *— " OoOOOO " s E-N . 

360 E»INT<E*.5> # IFE<; 1T*-Tl*s RETURN 
370 J-lsK-N-E 
380 I-J 

390 M— I+Es IFA ( I ) <-A (M> THEN410 

400 A- A < M ) s A < M ) -A < I ) s A<I) -Aï I-I-Es IF I < 1THEN4 10EL3E390 
.410 J-J + l s IFJ >K THEN36QELSE3B0 
420 ’ 

430 REM TRI INSERTION 

440 •’ 

450 TI*—" OOOOOO " s F OR J — 2T ON s X-A < J > a FOR I-J - 1 Tü 1STEP - 1 s IFX ; A ( I > A U + l ) -X s I-ÜNEXTaGO 
T0470 ■■ •• " 

460 A ( 1 + 1 ) - A ( I > s NEXT a A ( I <-l > — X 
470 NEXTi T*«TI*s RETURN 
480 ’ 

490 REM TRI PERMUTATION 

500 ’ 

5 1 0 T I *« " OOOOOO " s FOR I - 1 TON- 1 a P- 1 : FOR J = 1 + 1 TON s I F A < J > < A ( P > P» J 
520 NEXT* A-A <P) s A (P) -A < I ) s A < I ) -As NEXT* T*-TI*s RETURN 
530' ' ' 

540 REM TRI QUICKSORT 

550 ’ ' ' ■ ■ . . 

560 TI*— "OOOOOO" s P«Os LI — 10. G-l s L)=N 
* 570 M«INT< (G+D)*.5) s IFA«GXA<M)A-A<G) SA(G)*A<M) SA(M)-A 
5B0 IFA (D> < A (G) A-A (G) s A (G) -A (D) a A (D> - Aï IFA (G) < A (M) A-A (G) s A (G) -A (M> s A (M) -A 
590 R— A (6) s I-Gs J-D+ 1 

- 600 I — I + 1 a IFA ( I ) < R THEN600 
. 610 J-J-ls IFA ( J ) >R THEN610 

620 IFKJ A-A ( I ) SAU ) -A( J ) s A( J )— Aï G0T0600 
630 A— A <G) s A (G) —A < J ) s A < J ) —As IF < J-G) > <D- J ) THEN660 
640 IF (J -B) >LI P— P+l s P (O, P) — J + 1 1 P < 1 , P > — D* D— J - 1 * G0T057O 
650 I F < D- J ) >L I THENG— J+l s G0T0570S ELSE680 

- 660 I F < D - J ) >L I P-P-U s R ( 1 , P) * J - 1 s P ( 0 , P ) -G s G- J + 1 s G0T0570 


670 IF<J-Q)>H THEND^J- 1 * GQT0570 
-680 IFP*0THEN690ELSE0=P(0,P> ïD*P(t,P) sP«P-He0T0570 

- 690 IFA< 1 ) >A<2)A«A<1> sA<l)»A<2> sA<2)-A 
700 F0RT*3T0Nî IFA (T) >=A (T-l > THEN740 

7 1 0 A-A <T) * A < T > *A < T- 1 ) : A ï T- 1 > «A « F0RK-T-2T 0 1 STEP - 1 1 I F A ( K > < «A ( K+ 1 ) K» 1 * GÜT0730 
720 A* A < K > tA<K)»A<K+l) ïA<K+1)*A 

- 730 NEXT 

* 740 NEXT lT*=TI*ï RETURN 
750 ' 

760 REM AFFICHAGE CONTROLE 
770 ' 

780 I FX < 25PR I NTUS I NG ” #### . "«A(X) » 

790 RETURN 
800 

810 REM INITIALISATION 

820 ? 

830 CLS:M=500ïDIMA(M> ,B(M> ,M<7> ,N*<7> ,N<9> ,P(l,M/50> 

840 ' 

B50 DATA'* N4 " » R I PPLE , BUBBLE s SHELL » S . MET Z NER » INSERTION, PERMUTAT ION. QUI CKSORT 
860 DAT A20 ,40,60,80,1 00 ,150, 200 , 300 , 500 
870 F0RX=0TD7*READN$<X> s NEXT s F0RX*lT09s READN ( X ) s NEXT 
880 ’ 

890 REM AFFICHAGE 

900 ' 

9 1 0 FORL=2T04STEP2 e GOSUB 1 000 s NEX T s L= 1 B » GOSUB 1 000 ï M*= " V'*L*2ï GOSUB 1 020 s M*~ ■■ I " s FOR 
L-3TO X 7 « GOSUB 1 020 s NE XT s M*= “ -f" î L«4 s GOSUB 1 020 * M*» s L*18s GOSUB 1 020 s FOR X*0T07 s CURS 
0R0,2*X+3*PRINTUSING"8< &"?N*<X> • NEXT s F0RX* S 1T098 CURS0R4*X+1 ,3* PR I NTUS ING"###" ïN ( 
X) s NEXT 

920 CURS0R4, 1 s PR INT "COMPARAT IF DES METHODES DE TRIS" « CURS0R1 , 19s PR1NT" INITIALISA 
T ION EN COURS..." 

930 

940 REM FICHIER ALEATOIRE 

950 ’ 

960 FORX=1TOMïB(X)=IN 1 (M*RND ( 1 >> s NEXT *. RETURN 
970 ' 

980 REM s/p affichaqe 

990 - 

1 OOO CURSORO , L « FORC-ü T039 s PR I NT " ï s NEX T s RETURN 
101 0 ’ 

1 020 F0RC=4T036BTEP4 s CURSORC , L s PR I NTM* s NEX T s RETURN 
1030 ’ 



FAISONS LE POINT 

En associant à un ordre BASIC il peut signi- 
fier 0 exemple : PRINT. écrira sur l'écran 0. 

Mais il peut être égal aussi à la dernière ligne 
validée d'un programme avec LIST et DELETE. 
LIST. =LIST n où n est la dernière ligne validée 
et toutes les combinaisons liées à LIST (voir 
manuel). 

EXEMPLES: 

1 0 Application : vous venez de modifier une 
ligne et vous voulez contrôler son contenu. Il 
suffit de faire LIST, (ou L..). 

2° Application : dans le déroulement d'un pro- 
gramme apparaît SYNTAX ERROR L.. affichera 
la ligne contenant l'erreur. 



Complément à l'astuce N° 3 du numéro 10. 
* THEN superflus dans la quasi totalité de 
cas = VRAI 


Par contre 

IFA=BC1+C + 1 fonctionne parfaitement 

• IF A =2B= 3 déclenche erreur = FAUX 


En fait à l'exception de quelques mots clé (tels 
que MUSIC, USR, CURSOR...) THEN peut être 
supprimé, y compris si l'on utilise la fonction 
ELSE. 

Attention, cependant, au fait que l'information 
qui suit le test n'engendre pas d'ambiguïté. 

EXEMPLE : 

IF A = BC 1 = C + 1 provoquera une erreur dans 
l'exécution l'ordinateur ne sachant pas si vous 
parlez de B, BC, BC1. 



PRINT'S 

De même que pour la suppression de THEN le 
fait de ne pas mettre de ; ne doit pas créer 
d'ambiguité. 

EXEMPLE : 

A$ -"SHARP" : PRINT TAB (3) A$ CHR$ 
($21) qui devrait écrire : 

I I I I SHARP ! 

écrit en fait 

I I I I I _0J 112 

illégal data error 
0 correspond à la valeur de A 
12 correspond à la valeur de $A 
illégal data error car le tableau CHR$ ( ) 
n'existe pas. 


Dans cette exemple même un espace entre A $ 
et CHR$ ($21 ) ne suffit pas il faut impérative- 
ment un 



RAPIDITE : 

Il est plus rapide de multiplier que de diviser 


EXEMPLE : 

FORX-1 TO 100000: A = 3/2: NEXT 

Temps = 31 secondes 

FORX = 1 TO 100000: A 3*. 5 NEXT 

Temps = 25 secondes 

soit environ 20% de gain de temps. 

De même le contrôle de variable après NEXT 
allonge le temps de 57% 

EXEMPLE : 

FORX = 1 TO 10000 : NEXT X Temps = 1 1 
FORX = 1 TO 10000: NEXT Temps - 7 

G. PIDOUX 
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SUBMARINE 


Un classique des bistrots : un avion, muni de 
son inévitable canon laser qui doit parcourir un 
dangereux trajet dans une caverne infestée de 
vilaines bestioles hostiles. L'avion c'est bien 
sur vous, mais attention, il y a plein 
d'embûches. 

Langage machine. 


StlVIifl 


Un grand classique des jeux de réflexion. 
Pour les débutants, MZ est un excellent par- 
tenaire et un très bon pédagogue. Pour les 
« Pros », le jeu consiste à faire 64-0 et ce n'est 
vraiment pas facile. La structure du programme 
(Basic) permet également d'aisément le modi- 
fier et de l'optimiser. 



CANON BALL 

Un jeu original et vraiment génial. Une ou plu- 
sieurs balles rebondissent sur le sol et risquent 
à tout moment de bêtement vous écraser. 
Quand votre super rayon laser les atteint, elles 
se divisent en 2 plus petites, et la difficulté aug- 
mente... Rassurez-vous, avec beaucoup 
d'adresse on finit quand même par s en sortir. 
Langage machine. I 1 


mn mm 

Beaucoup d'indiens, des flèches dans tous les 
sens, et vous qui devez vous en sortir vivant 
grâce à votre fidèle six coups. Si vous gagnez, 
vous tombez dans un autre village avec encore 
plus d'indiens. La fin ? Impossible à vous 
décrire, les Indiens m'ont toujours occis 
1 avant... Langage machine. 




ver 



BON DE COMMANDE 
PRÉNOM... 


ADRESSE 


DÉSIRE RECEVOIR LE(S) LOGICIEL(S) SUIVANT(S) : 


r^i 


— — " i/ 

i 

ZEN est un utilitaire indispensable à tout MZ'iste 
désirant s'initier et programmer en LM. Il per- 
met l'entrée d'un programme LM en langage 
clair (mnémoniques) et se charge tout seul de 
la conversion en codes Z80 en indiquant les 
éventuelles erreurs. 

De nombreuses autres fonctions facilitent con- 







LMSURMZ 


le Z80, ses registres, ses diffé- 
rents groupes d’instructions et un 
programme spécialement conçu 
pour mettre en application les 
nombreux exemples que nous 
vous proposerons à l’avenir. Tel 
est le menu de ce LM N° 3. Bon 
courage et, surtout, n’hésitez pas 
à nous faire part de vos difficul- 
tés ou des points sur lesquels 
nous n’aurions pas été suffisam- 
ment clairs, nous les étudierons, 
à nouveau, plus en détails. 

LE MICROPROCESSEUR Z80 

Le CPU (Central Processing Unit) Z80 se présente 
sous la forme d’un boîtier de 40 pattes organisées, 
sauf pour les pattes d’alimentation et d’horloge, en 
3 BUS : Adresses, Données et Contrôle (voir N° 1 1). 
Pour les puristes, le Z80 est un circuit fabriqué en 
technologie MOS, canal n, il comporte 8 500 tran- 
sistors sur une surface de 22 mm 2 ; il est alimenté 
par une tension unique de 5 Volts et attaqué par 
une horloge de 5 Volts également. Sur les MZ, la 
fréquence de cette horloge varie entre 2 et 4 MHZ. 
La figure 1 montre le brochage physique du Z80. 

LES REGISTRES DU Z80 

Un registre est une case de mémoire vive de 8 bits 
(octet) ou 16 bits. Le Z80 contient 18 registres de 
8 bits et 4 registres de 16 bits, ils sont intégrés au 
microprocesseur et sont, pour la plupart, totale- 
ment accessibles au programmeur. C’est la mani- 
pulation de ces registres et leur action sur la 
mémoire vive qui constituera la majeure partie de 
la programmation en LM. 

On distingue 2 types de registres : les registres spé- 
cialisés qui exécutent une tâche unique et les regis- 
tres généraux, les plus couramment utilisés par le 
programmeur. 

LES REGISTRES SPÉCIALISÉS 

• Le Compteur Ordinal (Program Counter : PC) 

Le Compteur Ordinal (16 bits) contient l'adresse 
mémoire où se trouve l'instruction à exécuter par 


le CPU. Une instruction peut nécessiter de 1 à 4 
octets successifs en mémoire ; dès que cette ins- 
truction aura été exécutée, le Compteur Ordinal 
passera automatiquement à l’adresse de l’instruc- 
tion suivante, soit + 1 à + 4 octets. Si l’instruction 
exécutée correspond à un saut de programme, le 
Compteur Ordinal contiendra l’adresse du saut et 
l’exécution du programme se poursuivra à cette 
adresse. Rassurez-vous, tout ce travail se fait sans 
aucune intervention du programmeur : PC travaille 
tout seul, il est, de ce fait, totalement « transpa- 
rent » à l’utilisateur. 

• Le Pointeur de Pile (Stack Pointer: SP) 

La notion de pile vous est expliquée en fin de cet 
article. Le pointeur de pile (16 bits) contient 
l’adresse du sommet de la pile. Le programmeur 
peut loger cette pile (ou plusieurs piles) n’importe 
où en mémoire, sa gestion en est alors effectuée 
automatiquement par SP. 

• Les 2 registres d’index (IX et IY) 

Ces 2 registres indépendants (16 bits) servent à 
accéder rapidement à une zone mémoire de 256 
octets pour y lire ou écrire des données ; ils peu- 
vent être logés n'importe où en mémoire. Une ins- 
truction d’accès très rapide, dite « indexée » nous 
permettra d’avoir accès immédiatement aux adres- 
ses comprises entre IX(IY) - 127 et IX(IY)+ 128. 

Ces 2 registres simplifient beaucoup ia program- 
mation, surtout lors de l’utilisation de tables de 
données. 

• Le registre d’interruption (I) 

Plusieurs instructions du Z80 permettent d’inter- 
rompre l’exécution d’un programme et de forcer 
l’exécution d’un autre programme à une adresse 
déterminée en mémoire. Le registre I (8 bits) est uti- 
lisé dans un certain type d’interruption que nous 
étudierons ultérieurement. Le poussoir « RESET » 
de votre MZ est un exemple type d’interruption prio- 
ritaire du fonctionnement du CPU. Lorsque vous 
appuyez sur ce poussoir, le Z80 termine son ins- 
truction en cours, le Compteur Ordinal se charge 
de la valeur OOOOH et l’exécution reprend à partir 
de cette adresse qui est le point de départ du moni- 
teur ROM de votre MZ ; vous passez donc immé- 
diatement sous le contrôle de ce moniteur. 

• Le registre de rafraîchissement mémoire (R). 
Non, vous ne devriez pas, théoriquement, trouver 
de bac à glaçons dans votre MZ. Le registre R (8 
bits) est, cependant, indispensable ; il sert à con- 
server les informations contenues dans la mémoire 
vive du MZ en la « rechargeant » régulièrement. Ce 
registre travaillant en solitaire et n’étant accessi- 
ble au programmeur que par une seule instruction, 


nous ne nous étendrons pas dessus mais vous indi- 
querons, le moment venu, le moyen de s’en servir. 

LES REGISTRES A USAGE GÉNÉRAL 

• L’Accumulateur (A). 

C’est le registre (8 bits) le plus important et le plus 
utilisé par le programmeur ; c’est par lui que tran- 
sitent tous les résultats d’opérations arithmétiques 
et logiques effectuées par le CPU. A est utilisé pour 
pratiquement toutes les opérations de transfert, de 
comparaison et de calcul sur des informations 8 
bits. C’est A qui bénéficie du plus grand jeu d’ins- 
tructions; nous aurons l’occasion d’y revenir 
longuement. 

• L’Indicateur (Flag: F) 

L’indicateur, comme son nom le laisse supposer 
indique l’état des résultats des opérations arithmé- 
tiques ou logiques. Le test de certains des 8 bits 
de F permet de savoir immédiatement si le résul- 
tat de l’opération précédente est négatif, nul ou 
positif ; s’il y a eu débordement de capacité. Il four- 
nit également bien d’autres informations que nous 
étudierons en détails. 

• Les registres B, C, D, E, H et L 

Ce sont 6 registres que l’on peut utiliser individuel- 
lement comme registre 8 bits ou par paires, comme 
registres 16 bits. Nous disposons donc de 3 regis- 
tres 16 bits appelés BC, DE et HL. 

Comme vous le montre la Fig. 2, les 8 registres A, 
F, B, C, D, E, H et L sont doublés par leurs homolo- 
gues « prime » ; il est, en effet, possible d’utiliser, 
grâce à des instructions très simples d’échanges, 
l’un ou l’autre des jeux de registres généraux ; le 
jeu non utilisé conservant les informations laissées 
par le programmeur avant l’échange. 

Pour conclure cette présentation physique du Z80, 
signalons la présence, dans notre CPU, d’une unité 
arithmétique et logique nommée ALU ; cette unité 
exécute toutes les opérations arithmétiques : addi- 
tion, soustraction, et logiques : OR, AND, XOR. Elle 
effectue également les comparaisons entre 2 
octets, les décalages et rotations d’octet. Cet ALU 
est commandé directement par le CPU et n’est pas 
accessible au programmeur qui n’a donc pas à s’en 
soucier. 

LES INSTRUCTIONS DU Z80 

Les instructions du Z80 se subdivisent en différen- 
tes catégories. 

Chaque instruction peut comporter de 1 à 4 octets 
notés en Hexadécimal. La liste des instructions 
jointe vous est présentée par ordre numérique 
croissant d’instruction. Cet ordre vous permettra, 
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dans un premier temps de mieux décoder un pro- 
gramme LM affiché en HEXA avec la commande 
« D » du moniteur. 

Les catégories 

• Instructions de chargement 

Elles sont caractérisées par le mnémonique (nom 
de l’instruction en clair) : « LD... » qui signifie 
CHARGER (de LOAD en anglais). Ces instructions 
chargent le registre DESTINATION à partir du regis- 
tre SOURCE. 

Exemple : 

LD A, 6 charge le registre A avec le contenu du 
registre B. Si, avant l’opération, A = 1CH et B = 78H, 
après l’opération : A=78h et B=78H. Le contenu 
de B a donc été chargé en A mais le contenu de 
B n’a pas été modifié. (Équivalent BASIC : A = B). 
Les opérations de chargement peuvent s'effectuer 
sur 8 bits ou 16 bits avec les registres paires. 

• Instructions de transfert de données ou de recher- 
che de caractère. 

Il s’agit des instructions LDI, LDIR, LDD, LDDR pour 
les transferts et CPI, CPIR, CPD, CPDR pour les 


recherches et comparaisons de caractères. Nous 
les étudierons en détail. 

• Les instructions arithmétiques et logiques 
ADD, ADC (addition), SUB et SBC (soustraction) 
pour l’arithmétique ; 

AND, OR et XOR pour la logique. 

• Les instructions agissant sur les bits 

BIT, SCF, CCF agissent sur 1 bit particulier d’un 
octet ou de l’indicateur. 

• Les instructions de saut 

JUMP (GOTO en BASIC), CALL (GOSUB) et RET 
(RETURN) ont un fonctionnement très voisin du 
BASIC mais beaucoup plus puissant. 

• Les instructions d’entrées-sorties et de contrôle 
du CPU. Ex. : NOP, HALT, DI, El, IMO. Certaines 
d’entre elles nécessitent de bonnes connaissances 
de base avant d’être étudiées ; nous y reviendrons 
également. 

Dès le prochain numéro, nous commencerons 
l’étude détaillée de chacune de ces instructions et 
faciliterons leur compréhension par de nombreux 
exemples. Pour faciliter l’entrée de ces exemples 
qui sont, en fait, de petits programmes LM, nous 


avons spécialement créé le programme «SAISIE 
LM » ; entrez-le dès maintenant (avec quelques 
adaptations pour les MZ 80 X), il vous sera bientôt 
d’une grande utilité. 


LA PILE 

La PILE est un système très simple et 
rapide de stockage temporaire d’informa- 
tions. Elle va nous permettre d’étudier, dès 
maintenant, deux instructions du Z80 qui 
sont PUSH (empiler) et POP (dépiler). 
Pour comprendre le principe de la pile, 
imaginez-vous une pile d’assiettes dans un 
restaurant. La dernière assiette, fraîche- 
ment lavée et posée au sommet de la pile 
sera inévitablement la première à être 
reprise pour être utilisée à nouveau. Le rai- 
sonnement est le même dans notre pile 
informatique: La dernière information 
empilée sera la première appelée. 

Pour créer une pile, dans un endroit donné 
de la mémoire, il suffit d’indiquer cet 
endroit à SP (le pointeur de pile) par l’ins- 
truction: LD SP,nnnn où nnnn est 
l’adresse hexadécimale 16 bits représen- 
tant la base de notre pile. Cependant, con- 
trairement à la pile d’assiettes, les adres- 
ses de stockage iront en descendant au 
lieu de monter. 

Si nous voulons, par exemple, sauvegarder 
le contenu des 3 registres BC, DE et HL, 
il nous suffira d’écrire, en mémoire, les 3 
instructions suivantes : 

PUSH BC 
PUSH DE 
PUSH HL 

Le contenu de HL sera sur le sommet de 
la pile, le contenu de DE en dessous et BC 
encore en dessous (Fig. 3). SP aura pris, 
automatiquement, la valeur nnnn - 6. 
Pour récupérer la valeur de nos 3 registres, 
il suffira de faire : 

POP HL 
POP DE 
POP BC 

Notez que les opérations de dépilage se 
font, bien sûr, en sens inverse des opéra- 
tions d’empilage ; vous comprenez main- 
tenant aisément pourquoi. Nous revien- 
drons plus tard sur cette notion de pile lors 
de l’élaboration de nos futurs programmes. 
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Cet utilitaire vous permettra de saisir un pro- 
gramme en langage machine en hexadécimal. 
Il est entré et sauvegarde ?... Alors tapez RUN. 

ADRESSE DE DEBUT DE PROGRAMME 

Cette adresse peut être entrée en décimal ou 
hexa. Des limites ont été volontairement pré- 
vues (entre A000H et C000H) et peuvent être 
modifiées aux lignes 1 91 0 et 1 920. 

SAISIE 

A gauche, affichage des adresses où sont 
entrées les valeurs hexa. Cet affichage se fait 
de 8 en 8 ; chaque ligne de saisie comportant 
8 octets. Au centre : Affichage des octets sai- 
sis avec gestion entièrement automatique du 
curseur pour la saisie et les corrections sur la 
page écran en cours. Dès qu'un programme 
entré dépasse la capacité de l'écran, une ligne 
de « . » s affiche en haut et un décalage vers 


le haut est effectué. A droite : Somme hexa des 
octets d une ligne et symboles correspondant 
aux codes ASCII des octets de la ligne. Nos 
futurs listings seront fournis avec cette somme 
et ces symboles, ils vous permettront de détec- 
ter très rapidement une erreur de saisie. En 
bas : Cette zone est affectée aux différents 
messages de commandes et d'erreurs. 

ECRITURE EN MEMOIRE ET SAUVEGARDE 

Dès que vous appuyez sur la touche « * » (fin 
de saisie), le programme écrit en mémoire (et 
affiche) les données saisies puis vous demande 
le titre du programme ( 1 2 lettres maxi) ; le pas- 
sage sous moniteur et l'affichage de la ligne 
de commande : S dddd ffff eeee : nom du pro- 
gramme. LM est automatique, 
dddd = Adresse de début du programme, 
fîft = Fin du programme, 
eeee = Adresse d'exécution du programme. 


Ces adresses peuvent, éventuellement, être 
modifiées. Tapez ensuite CR pour l'enregistre- 
ment. Apparaît ensuite le symbole « * » du 
moniteur ; tapez alors « R » puis CR • vous 
retournez sous BASIC et l'affichage, en clair 
des caractéristiques du programme enregistré 
apparaît. 

Tout programme ne demandant qu'à être amé- 
lioré, celui-ci n'échappe pas à la règle, vous 
pourriez, par exemple, créer une fonction d'in- 
sertion ou d'effacement d'un octet à l'écran... 

Un grand merci, au passage à Monsieur G. 
Pidoux, auteur de ce programme, qui nous ren- 
dra de grands services à l'avenir ; Il peut d'ores 
et déjà vous être utile pour la siasie des diffé- 
rentes routines L.M. que nous vous présentons. 

Quand ces routines sont présentées en assem- 
bleur, il vous suffit d'entrer les codes de la 
colonne correspondants aux instructions Z80 
en vérifiant bien que ces codes sont toujours 
bien situés aux adresses correspondantes. 

Exemple, pour la routine JOYSTICKS : 

0000 3E 4E 18 02 3E 56 F3 E5 
0008 D5 32 25 CO 11 FFFF 21 
0010, etc. 







GOSUB 1 



10 REM SAISIE L.M. 

siMiaaliMBiAiBttaiSiiifc 

30 'G. P. - JANVIER B5 - VI. 1 
40 ’paur le CLUB DES SHARPENT I ERS 
50 'SIZE = 6470 

lïilBl§!É®iï:(KEaSKlllm 

100 REM MAITRE 

120 S0SUB1100 

130 CONSOLE: CLS: CURSOR 1,3 SPRINT "ADRESSE DEBUT DE PROGRAMME : " î s AD*=" " s M=5 

1 40 CURS0R30 , 3 s PR I NTAD* 5 " * ES" ! « GOSUB 1710 

150 IF <A*="B")+(A*=CHR*(16> ) GOSUB 1030: GOTO 140 

160 IF A*=CHR*(13) THEN230 

170 IF <VAL(A*K>0) + <A*="0"> THEN200 

1G0 IF (A«<"A , ') + (Ali>”F") GOSUB 1 190s GOTO 140 

190 HX = 1 s M=4 

200 AD*=AD*+A* 

210 IF LEN < AD* ) >M GOSUB 1 150s GOTO 130 
220 IF LEN (AD* KM THEN140 
230 PRINTA*: IF HX=1 THEN2B0 

240 IF LEN(AD*>=5 D=VAL (AD*) : AD*=HEX* (D) : G0T0300 

250 CURSOR l,5sPRINT" EST-CE UNE VALEUR HEXADECIMALE (O/N) ?" ! s MUSIC'F" 

260 GOSUB1710: IF (A*< >"N" ) * < A*< >"0" ) THEN260 
270 IF R*="N" D=VAL(AD*> SG0T0300 
280 H*=AD*s GOSUB 1490 
290 ’ 

300 IF ÎKMO GOSUB 1 160s GOTO 130 
310 IF D>M1 GOSUB 1 170 s GOTO 130 

320 GOSUB 1650S GOSUB 15B0: AD=D: DA=D: NA=Ds X = 1 ! MX = 1 s L=2: LA=2: SA=1 
330 GOSUB 1620s IF X=MX THEN CURSORC, LS PR INT"*" î 
340 G0SUB1710: IF A*="*" THEN470 

350 IF <A*=CHR*<16> >*(X=MX> V*= CURSDRC ,L:MUSIC"D" SPRINT"® " ! : G0T0340 

360 IF (A*>CHR*(16) ) * ( A*<CHR* <21 ) ) GOSUB 1 290 : G0T0340 
370 IF ( A*< "0" ) + ( A*>"F" > THEN450 
380 IF <A*> ,, 9”> *<A*<"A") THEN450 

390 V*=V*+A*s GOSUB 1740: IF LEN(V*>=1 CA=CA+1 s G0T0340 

400 H*= V* : DP=F <1,X): GOSUB 1 530 :V*= IF X=MX MX=MX+1 

410 X=X + 1 s AD=AD+1 s T=SAs GOSUB 1 550 : I F AD >M 1 + 1 GOSUB 1 1 80 s CONSOLE s END 
420 IF P=8 L=L+1 : LA=Ls SA=SA+1 : AD*=HEX* < AD) : C=Os CA=Os G0T0330 
430 C=C+3s CA=C:P=P+1 : G0T0340 
440 ' 

450 GOSUB 1 1 90 : G0T0340 
460 * 

470 GOSUB 1650 s C0NS0LE2, 20, 0, 40s L=1 s p=8s MX=MX-1 s AD=AD-1 s FOR X = 1 TO MX: IF P=8 P=1 ■ 
L=L+ 1 s AD*=HE X * < F < O , X ) ) : GOSUB 1 620 s C=5 s G0T0490 
480 P=P+1 : C=C+3 

490 CURSORC, L:D=F<1, X) :PRINTRIGHT*("0"+HEX*(D> ,2) ; : T=INT ( (X-l ) /B) +1 : G05UB1550 
500 POKE F(0,X),F(l,X)s NEXTs CONSOLE: COLOR, ,0,6: CURSORO, 21 s PR INT "METTRE UNE CASSE 

TTE POUR SAUVEGARDER LE PROGRAMME L. M. ": MUS IC" F" : TP=4 s GOSUB A*= NOM*="":PR 

INT "NOM DU PROGRAMME s " 

510 CURS0R20 , 23 : LG= 1 2-LEN (NOM* ) : M*= " ® " : PR I NTNOM* ; : GOSUB 1 880 s M*= " B" ! GOSUB 1 8B0 s MUS 
I C " +G " s GOSUB 1 7 1 0 : I F A*=CHR* (13) THEN540 

520 IF ( A*= " G" > + < A*=CHR* ( 1 6 > ) NO*=NOM* s GOSUB 1 070 : NOM*=NO* : G0T05 1 0 
530 NOM*=NOM*+A*s IF LEN (NOM*) <12 THEN510 

540 PR I NT A* SPRINT" HAPPU YER SUR <CR>" : TP=1 : G0SUB1670: PRINT"BFUIS, A LA FIN DE L’E 
NREG I STREMENT APPUYER SUR R' & < CR > " : MUS I C " A " : N*=NOM*+ " . LM " s PR I NT " *S " î HE X* 

CDA) S HEX* ( AD) ;HEX*(DA> 5 "s ";N*5 "S*i" : BYEsCOLOR, , 7, 2 

550 PRINT"§Uffl!VOUS VENEZ DE SAUVEGARDER LE PROGRAMMES UaNOM" 5 T AB < 17) î " s " 5 TAB (20) 

; N* s MUS I C " B " : PR I NT " UUADRESSE DEBUT" ; TAB ( 17) 5 " s *" ; HEX* (DA) , DA: PRINT"UUADRESSE F 
IN" 5 TAB ( 17) ; " : *»;HEX*(AD> , AD: PRINT”MMADRESSE EXECUTIONS *" ; HEX* (DA) , DA 

560 L= AD+ 1-DA:PRINT" UHLONGUEUR " ; T AB ( 1 7 ) ; "s *" ; HEX* (L> , L: PRINT"UUK" s MUSIC"CRCRCD 
EDCEDDC" 

J570 END 
580 ’ 

1000 REM SOUS PROGRAMME 

1010 ’ 

1020 ’ CONTROLE HEX A 

1030 IF AD*=" " H X =0 : M=5 s MUS IC" BCA " : RETURN 

1040 NO*=AD*s GOSUB 1080 s AD*=NO*s FOR X = 1 TO LEN (AD* > s IF MID* (AD*, X, 1 ) < "A" NEXT: HX= 
Os M=5 

1050 RETURN 

1060 ' DELETE SAISIE 

1070 IF N0*=" " THEN MUSI C" BCA" : RETURN 
1 080 NO*=LEFT* < NO* , LEN ( NO* )- 1 )s RETURN 

1090 ' INITIALISATION 

1100 COLOR, ,0,4 

1110 DIM F(l, 161) , S ( 20 ) 

1120 READ MO, MO», Ml, Ml* 

1130 RETURN 

1140 ' MESSAGE 

1150 M*=" ADRESSE IMPOSSIBLE" s GOTO 1240 

1160 M*=" ADRESSE TROP PETITE « "+M0*+" )»sB0T01240 

1170 M*=" ADRESSE TROP GRANDE (> "+M1*+" )":G0T01240 

1180 M*=" PROGRAMME TROP LONG" s TP=5: GOTO 1250 

1190 M*=" VALEUR NON HEXADECIMALE” : GOTO 1240 

1200 M** "LIMITE FIN DE PROGRAMME " s GOTO 1 240 

1210 M*=" ADRESSE INACCESSIBLE" s GOTO 1240 

1220 M*=" ADRESSE NON AFFECTEE" : GOTO 1240 

1230 M*="LIMITE DE CORRECTION" 

1240 TP=3 

1250 G0SUB1600S CURS0R1 , 23s PRINTC2, 63 î M*; " ! " ; s MUSIC"E" : G0SUB1670S CURS0R1 , 23s PRIN 
TCO, 63 ; SPC (LEN (M*) +2) ;: IF DA>0 G0SUB158OSG0T0127O 
1 260 COLOR , , 0 , 4 s CLS s CONSOLE 
1270 CURSORC, LS RETURN 
1280 ’ CURSEUR 

1290 IFX=MX THEN CURSORC, Ls PR INT" "5 SG0T01310 

1300 P0KE*D800+40#L+C,7,7:DP=F(1,X) : IF (LEN ( V*) =1 ) * ( X<MX ) V*=V*+RIGHT* (HEX* (DP) , 

1 ) s GOSUB 1530: T=SA: G0SUB1550 

1310 IF A*="li" THEN 1380 

1320 IF A*="K" THEN 1400 

1330 IF A*="B" THEN 1420 

1340 IF X >=MX GOSUB 1 200: GOTO 1 460 

1350 IF P=8 C=5s L=L+1 s P=1 s SA=SA+1 S G0TQ1370 

1360 C=C+3:P=P+1- 

1370 X=X+1 : AD=AD+1 s GOTO 1460 

1380 IF L=2 G0SUB1210S G0T01460 

1390 X=X-8s AD=AD-8s L=L-1 s SA=SA-1 s G0T01460 

1400 IF X+B>MX GOSUB 1220 S GOTO 1460 

1410 X=X+8 : AD=AD+8 s L=L+ 1 s SA=SA+ 1 : GOTO 1 460 

1420 IF (L=2)*(C=5> GOSUB 1230: GOTO 1460 

1430 IF P=1 C=26 s L=L- 1 s SA=SA- 1 s P=8 : GOTO 1450 

1440 C=C-3:P=P-1 

1450 X=X-1 s AD=AD-1 

1460 V*=" " s IF X<MX P0KE*DB00+40*L+C,*87SRETURN 
1 470 CURSORC , L s PR I NT " * " ; s RETURN 
1480 '—"-—HEX A 4 DECIMAL 
1 490 N0=LEN ( H* ) s LM=NO 

1500 D=Os FOR 1=0 TO NO- 1 s L V*=M I D* ( H* , LM- 1 , 1 ) s L V=VAL < L V* > s IF (LV=0) * (LV*< >"0" > LV 
=ASC ( LV* ) -55 

1510 D=D+LV# 16 + 1 s NEXTs RETURN 
1520 -STOCKAGE 

1530 F (O, X > =ADs H*=V*s G0SUB1490: S (SA) = INT (S (SA) +D-DP+. 5) s F ( 1 , X > =Ds RETURN 
1540 > AFFICHAGE DUMP 

1550 CURS0R29, Ls PRINTC7, 1 3RIGHT* ( "00"+HEX* (S (T) ) , 3) 5 s CURS0R31+P, Ls IF D<32 PRINTC 
0,53". s RETURN 

1560 PRINTC 0,53; CHR* (D) S s RETURN 
1570 '——AFFICHAGE COMMANDE 

1580 GOSUB 1 600 SCURS0R2, 22 SPRINT" +" SPRINT" F Mouvement Curseur *:Fin de saisie 

"SPRINT" + " ; : COLOR , , 0 , 7 s C0NS0LE2 , 20 , 0 , 40 s RETURN 

1590 '— i — AFFICHAGE COULEUR MESSAGE 

1 600 C0NS0LE22 , 3 , O , 40 s COLOR , , 0 , 6 S CLS S RETURN 

1610 ' AFFICHAGE ADRESSE 

1620 IF L>20 L=20: PRINTsF0RI=0T039s CURSOR 1 , 1 s PRINTC 2, 73 5 " . " s NEXTS CURSORO, L s PR INT 


CO, 53 5 SPC (5) ; :CURS0R28,L:PRINTC0,53;SPC(12) ; : CURS0R29, Ls PRINTC7, 13; ” 

840 

1 630 CURSORO , L s PR I NT C 0 , 5 3 AD* ; " : " ; : P= 1 : C=5 : CA=5 : S=0 s MUS I C " A " s RETURN 

1640 ’ MASQUE COULEUR 

1650 CONSOLE: COLOR, ,0,6s CLS: PRINT"ADR. s 0 1 2 3 4 5 6 7 01234567" i POKE 

*D8 1 D , *86 , *86 , *86 : POKE*DO 1 D , *A7 , *A7 , * A7 s CONSOLE 1 , 2 1 , 0 , 40 : COLOR , , , 5 s CLS : CONSOLE 1 , 
21, 5, 23: COLOR, ,, 7: CLS: RETURN 

1660 ' WAIT 

1670 TW=VAL (TI*) 

1680 IF VAL <TI*)<TW+TP THEN 1680 
1690 RETURN 

1700 ' SAISIE 

1710 GETA*: IF A*="" THEN1710 
1720 RETURN 

1730 ' AFFICHAGE OCTET 

1740 IF X=MX THEN 1790 

1750 IF LEN (V*) =1 P0KE*D800+40#L+C+1 , *87: G0T01810 
1760 IF X=MX-1 THEN 1800 

1770 IF P=8 P0KE*D800+ (L+l > *40+5, *B7s G0T01810 
1780 P0KE*D800+40#L+G+3, *87: G0T01810 
1790 IF LEN < V*) = 1 AF*=V*+"« " s GOTO 1820 
1800 IF P<8 AF*=V*+" : GOTO 1820 

1810 AF*=V* 

1 820 CURSORC , L : PR I NT AF* ; : RETURN 
1830 ' STOKAGE PARTIEL 

1840 GOSUB 1600: CURSOR 1 , 23s PRINTC2, 63 ; "UN INSTANT. . . ";:MUSIC"C" 

1850 FOR 1=1 TO 8sPOKEF(0, I) ,F(1, I) SF(0, I)=F<0, 1+8) :F<1, I)=F(1, 1+8) :S(I)=S(I+1 ) : 

NEXTs FOR 1=9 TO 19: F (O, I ) =F (0, 1+8) s F ( 1 , I > =F ( 1 , 1+8) : S < I ) =S ( 1 + 1 ) : NEXT 

1860 FOR 1=20 TO 144: F (0, I ) =F (0, 1+8) : F ( 1 , I ) =F ( 1 , 1+8) s NEXT: FOR 1 = 145 TO 152:F(0,I 

> =0: F ( 1 , I ) =0: NEXTs MX = 145: X = 145: SA=1 9s GOSUB 1580 s CURSORC, L S RETURN 

1870 ' STRING* 

1880 FOR 1=1 TO LG: PR I NTM* ;: NEXT: RETURN 

1890 ' BORNES L.M. 

1900 DATA 40960, *AOOOS '= -> MO, MO* 

1910 DATA 53247, *CFFFs '= 4 Ml, Ml* 

1920 ' fc########*### 


Liste des instructions Z80 

aa = valeur HEXA 8 bits (1 octet) 

ff ff = valeur HEXA 16 bits (2 octets) 

dd = valeur HEXA 8 bits de déplacement 

relatif (-126 à +127] 







22 

ff 

ff 

LD 

(ffff),HL 






23 



INC 

HL 

00 



NOP 


24 



INC 

H 

01 

ff 

ff 

LD 

BC,ffff 

25 



DEC 

H 

02 



LD 

(BQA 

26 

aa 


LD 

H,aa 

œ 



INC 

BC 

27 



DAA 


04 



INC 

B 

•& 

dd 


JR 

Z,dd 

05 



DEC 

B 

29 



ADD 

HL,HL 

06 

aa 


LD 

B,aa 

2A 

ff 

ff 

LD 

HMffff) 

07 



RLCA 


2B 



DEC 

HL 

08 



EX 

AF^F 

2C 



INC 

L 

09 



ADD 

HL,BC 

2D 



DEC 

L 

OA 



LD 

m 

2E 

aa 


LD 

Laa 

OB 



DEC 

BC 

2F 



CPL 


OC 



INC 

C 

30 

dd 


JR 

NC,dd 

OD 



DEC 

C 

31 

ff 

ff 

LD 

SP,ffff 

OE 

aa 


LD 

C,aa 

32 

ff 

ff 

LD 

WA 

OF 



RRCA 


33 



INC 

SP 

10 

dd 


DJNZ 

dd 

34 



INC 

m 

11 

ff 

ff 

LD 

DE,ffff 

35 



DEC 

(HL) 

12 



LD 

mA 

36 

aa 


LD 

(Hl),aa 

13 



INC 

DE 

37 



SCF 

14 



INC 

D 

38 

dd 


JR 

C,dd 

15 



DEC 

D 

39 



ADD 

HL,SP 

16 

aa 


LD 

D,aa 

3A 

ff 

ff 

LD 

m 

17 



RLA 


3B 



DEC 

SP 

18 

dd 


JR 

dd 

X 



INC 

A 

19 



ADD 

HL.DE 

3D 



DEC 

A 

IA 



LD 

m 

3E 

aa 


LD 

A,aa 

IB 



DEC 

DE 

3F 



CCF 


IC 



INC 

£ 

40 



LD 

B, B 

1D 



DEC 

E 

41 



LD 

B,C 

1E 

aa 


LD 

E,aa 

42 



LD 

B,D 

1F 



RRA 


43 



LD 

B,E 

20 

dd 


JR 

NZ,dd 

44 



LD 

B, H 

21 

ff 

ff 

LD 

HL,ffff 

45 



LD 

B,L 



46 

LD 

B» 

88 


ADC 

A,B 

47 

LD 

B, A 

89 


ALT 

A,C 

48 

LD 

C.B 

8A 


ADC 

A,D 

49 

LD 

C,C 

8B 


ADC 

A.E 

4A 

LD 

C,D 

8C 


ADC 

A.H 

4B 

LD 

C.E 

8D 


ADC 

A.L 

4C 

LD 

C,H 

8E 


ADC 

m 

4D 

LD 

C,L 

8F 


ADC 

A A 

4E 

LD 

C,(HL) 

90 


SUB 

A,B 

4F 

LD 

CA 

91 


SUB 

KO, 

50 

LD 

D,B 

92 


SUB 

KO 

51 

LD 

D,C 

93 


SUB 

A.E 

52 

LD 

D,D 

94 


SUB 

A,H 

53 

LD 

D,E 

95 


SUB 

A,L 

54 

LD 

D,H 

96 


SUB 

m 

55 

LD 

D,L 

97 


SUB 

KK 

56 

LD 

m 

98 


SBC 

KO 

'57 

LD 

DA 

99 


SBC 

A,C 

58 

LD 

E.B 

9A 


SBC 

A,D 

59 

LD 

E,C 

9B 


SBC 

A,E 

SA 

LD 

E,D 

9C 


SBC 

A,H 

5B 

LD 

E.E 

9D 


SBC 

A.L 

5C 

LD 

E,H 

9E 


SBC 

m 

5D 

LD 

E,L 

9F 


SBC 

A,A 

5E 

LD 

E,(Hl) 

AO 


AND 

B 

5F 

LD 

EA 

Al 


AND 

C 

60 

LD 

H,B 

A2 


AND 

D 

61 

LD 

H,C 

A3 


AND 

E 

62 

LD 

H,D 

A4 


AND 

H 

63 

LD 

H,E 

A5 


AND 

L 

64 

LD 

H, H 

A6 


AND 

m 

65 

LD 

H,L 

A7 


AND 

A 

66 

LD 

m 

A8 


XOR 

B 

67 

LD 

HA 

A9 


XOR 

C 

68 

LD 

L,B 

AA 


XOR 

D 

69 

LD 

KO 

AB 


XOR 

E 

6A 

LD 

UD 

AC 


XOR 

H 

6B 

LD 

L,E 

AD 


XOR 

L 

6C 

LD 

L,H 

AE 


XOR 

(HL) 

6D 

LD 

U- 

AF 


XOR 

A 

6E 

LD 

MHL) 

BO 


OR 

B 

6F 

LD 

LA 

B1 


OR 

C 

70 

LD 

(HL), B 

B2 


OR 

D 

71 

LD 

(HL),C 

B3 


OR 

E 

72 

LD 

(HL),D 

B4 


OR 

H 

73 

LD 

(HL),E 

B5 


OR 

L 

74 

LD 

(HL),H 

B6 


OR 

(HL) 

75 

LD 

(HL),L 

B7 


OR 

A 

76 

HALT 


B8 


CP 

B 

77 

LD 

m 

B9 


CP 

C 

78 

LD 

KO 

BA 


CP 

D 

79 

LD 

KO 

BB 


CP 

E 

7A 

LD 

KO 

BC 


CP 

H 

7B 

LD 

A, E 

BD 


CP 

L 

7C 

LD 

A,H 

BE 


CP 

(HL) 

7D 

LD 

A,L 

BF 


CP 

A 

7E 

LD 

A, (HL) 

CO 


RET 

NZ 

7F 

LD 

KK 

Cl 


POP 

BC 

80 

ADD 

A,B 

C2 ff 

ff 

JP 

NZ,ffff 

81 

ADD 

KO 

C3 ff 

ff 

JP 

ffff 

82 

ADD 

A,D 

C4 ff 

ff 

CALL 

NZ,ffff 

83 

ADD 

A,E 

C5 


PUSH 

BC 

84 

ADD 

A,H 

C6 aa 


ADD 

A,aa 

85 

ADD 

A.L 

C7 


RST 

00H 

86 

ADD 

m 

C8 


RET 

Z 

87 

ADD 

KK 

C9 


RET 



CA 

ff 

ff 

JP 

Z,ffff 

CB 

10 

RL 

B 

CC 

ff 

ff 

CALL 

Zffff 

CB 

11 

RL 

C 

CD 

ff 

ff 

CALL 

ffff 

CB 

12 

RL 

D 

CE 

aa 


ADC 

Kaa 

CB 

13 

RL. 

E 

CF 



RST 

08H 

CB 

14 

RL 

H 

DO 



RET 

NC 

CB 

15 

RL 

L 

DI 



POP 

DE 

CB 

16 

RL 

(HL) 

D2 

ff 

ff. 

JP 

NC, ffff 

CB 

17 

RL 

A 

D3 

aa 


OUT 

m 

CB 

18 

RR 

B 

D4 

ff 

ff 

CALL 

NC, ffff 

CB 

19 

RR 

C 

D5 



PUSH 

DE 

CB 

IA 

RR 

D 

D6 

aa 


SUB 

K?& 

CB 

IB 

RR 

E 

D7 



RST 

10H 

CB 

IC 

RR 

H 

D8 



RET 

C 

CB 

1D 

RR 

L 

D9 



EXX 


CB 

1E 

RR 

(HL) 

DA 

ff 

ff 

JP 

C,ffff 

CB 

1F 

RR 

A 

DB 

aa 


IN 

AJaa) 

CB 

20 

SLA 

B 

DC 

ff 

ff 

CALL 

C,ffff 

CB 

21 

SU 

C 

DE 

aa 


SBC 

A,aa 

CB 

22 

SU 

D 

DF 



RST 

18H 

CB 

23 

SU 

E 

EO 



RET 

PO 

CB 

24 

SU 

H 

El 



POP 

HL 

CB 

25 

SU 

L 

E2 

ff 

ff 

JP 

PO, ffff 

CB 

26 

SU 

(HL) 

E3 



EX 

(SP), HL 

CB 

27 

SU 

A 

E4 

ff 

ff 

CALL 

PO, ffff 

CB 

28 

SRA 

B 

E5 



PUSH 

HL 

CB 

29 

SRA 

C 

E6 

aa 


AND 

A,aa 

CB 

2A 

SRA 

D 

E7 



RST 

20H 

CB 

2B 

SRA 

E 

E8 



RET 

PE 

CB 

2C 

SRA 

H 

E9 



JP 

m 

CB 

2D 

SRA 

L 

EA 

ff 

ff 

JP 

PE,ffff 

CB 

2E 

SRA 

(HL) 

EB 



EX 

DE.HL 

CB 

2F 

SRA 

A 

EC 

ff 

ff 

CALL 

PE,ffff 

CB 

38 

SRL 

B 

EE 

aa 


XOR 

aa 

CB 

39 

SRL 

C 

EF 



RST 

28H 

CB 

3A 

SRL 

D 

FO 



RET 

P 

CB 

3B 

SRL 

E 

Fl 



POP 

AF 

CB 

3C 

SRL 

H 

F2 

ff 

ff 

JP 

P, ffff 

CB 

3D 

SRL 

L 

F3 



DI 


CB 

3E 

SRL 

(HL) 

F4 

ff 

ff 

CALL 

P, ffff 

CB 

3F 

SRL 

A 

F5 



PUSH 

AF 

CB 

40 

BIT 

0,B 

F6 

aa 


OR 

aa 

CB 

41 

BIT 

0,C 

F7 



RST 

30H 

CB 

42 

BIT 

0,D 

F8 



RET 

M 

CB 

43 

BIT 

0,E 

F9 



LD 

SP, HL 

CB 

44 

BIT 

0,H 

FA 

ff 

ff 

JP 

M,ffff 

CB 

45 

BIT 

0,L 

FB 



El 


GB 

46 

BIT 

0,(HL) 

FC 

ff 

ff 

CALL 

M,ffff 

CB 

47 

BIT 

OA 

FE 

aa 


CP 

aa 

CB 

48 

BIT 

1,B 

FF 



RST 

38H 

CB 

49 

BIT 

i,c 

CB 

00 


RLC 

B 

CB 

4A 

BIT 

1,D 

CB 

01 


RLC 

C 

CB 

4B 

BIT 

1,E 

CB 

02 


RLC 

D 

CB 

4C 

BIT 

1,H 

CB 

03 


RLC 

E 

CB 

4D 

BIT 

1,L 

CB 

04 


RLC 

H 

CB 

4E 

BIT 

m 

CB 

05 


RLC 

L 

CB 

4F 

BIT 

U 

CB 

06 


RLC 

« 

CB 

50 

BIT 

2,0 

CB 

07 


RLC 

A 

CB 

51 

BIT 

2,0 

CB 

08 


RRC 

B 

CB 

52 

BIT 

2,0 

CB 

09 


RRC 

C 

CB 

53 

BIT 

2,0 

CB 

OA 


RRC 

D 

CB 

54 

BIT 

2, H 

CB 

OB 


RRC 

E 

CB 

55 

BIT 

2,L 

CB 

OC 


RRC 

H 

CB 

56 

BIT 

2,(Hl) 

CB 

OD 


RRC 

L 

CB 

57 

BIT 

2A 

CB 

OE 


RRC 

(HL) 

CB 

58 

BIT 

3, B 

CB 

OF 


RRC 

A 

CB 

59 

BIT 

3,C 



CB 

5A 

BIT 

3,D 

CB 

9C 

RES 

3, H 

CB 

DE 



SET 

3,(HL) 

DD 

B6 

dd 


OR 

(IX+dd) 

CB 

5B 

BIT 

3,E 

CB 

90 

RES 

3,L 

CB 

DF 



SET 

3, A 

DD 

BE 

dd 


CP 

(IX+dd) 

CB 

5C 

BIT 

3>H 

CB 

9E 

RES 

m 

CB 

EO 



SET 

4, B 

DD 

CB 

dd 

06 

RLC 

(IX+dd) 

CB 

5D 

BIT 

3>L 

CB 

9F 

RES 

3, A 

CB 

El 



SET 

4,C 

DD 

CB 

dd 

OE 

RRC 

(IX+dd) 

CB 

5E 

BIT 

zm 

CB 

AO 

RES 

4, B 

CB 

E2 



SET 

4,D 

DD 

CB 

dd 

16 

RL 

(IX+dd) 

CB 

5F 

BIT 

3A 

CB 

Al 

RES 

4,C 

CB 

E3 



SET 

4,E 

DD 

CB 

dd 

1E 

RR 

(IX+dd) 

CB 

60 

BIT 

4, B 

CB 

A2 

RES 

4,D 

CB 

E4 



SET 

4, H 

DD 

CB 

dd 

26 

SLA 

(IX+dd) 

CB 

61 

BIT 

4,C 

CB 

A3 

RES 

4,E 

CB 

E5 



SET 

4,L 

DD 

CB 

dd 

2E 

SRA 

(IX+dd) 

CB 

62 

BIT 

4,D 

CB 

A4 

RES 

4, H 

CB 

E6 



SET 

4, (HL) 

DD 

CB 

dd 

3E 

SRL 

(IX+dd) 

CB 

63 

BIT 

4,E 

CB 

A5 

res 

4,L 

CB 

E7 



SET 

4,A 

DD 

CB 

dd 

46 

BIT 

0, (IX+dd) 

CB 

64 

BIT 

4, H 

CB 

A6 

RES 

4, (HL) 

CB 

E8 



SET 

5, B 

DD 

CB 

dd 

4E 

BIT 

1, (IX+dd) 

CB 

65 

BIT 

4,L 

CB 

A7 

RES 

4A 

CB 

E9 



SET 

5,C 

DD 

CB 

dd 

56 

BIT 

2,(IX+dd) 

CB 

66 

BIT 

m 

CB 

A8 

RES 

5, B 

CB 

EA 



SET 

5,D 

DD 

CB 

dd 

5E 

BIT 

3ilX+dd) 

CB 

67 

BIT 

4A 

CB 

A9 

RES 

5,C 

CB 

EB 



SET 

5,E 

DD 

CB 

dd 

66 

BIT 

4,px+dd) 

CB 

68 

BIT 

5, B 

CB 

aa 

RES 

5,D 

CB 

EC 



SET 

5, H 

DD 

CB 

dd 

6E 

BIT 

5^IX+dd) 

CB 

69 

BIT 

5>C 

CB 

AB 

RES 

5,E 

CB 

ED 



SET 

5,L 

DD 

CB 

dd 

76 

BIT 

6^IX+dd) 

CB 

6A 

BIT 

5,0 

CB 

AC 

RES 

5, H 

CB 

EE 



SET 

5, (HL) 

DD 

CB 

dd 

7E 

BIT 

7ilX+dd) 

CB 

6B 

BIT 

5.E 

CB 

AD 

RES 

5,L 

CB 

EF 



SET 

5A 

DD 

CB 

dd 

86 

RES 

0, (IX+dd) 

CB 

6C 

BIT 

5, H 

CB 

AE 

RES 

m 

CB 

FO 



SET 

6, B 

DD 

CB 

dd 

8E 

RES 

IJX+dd) 

CB 

6D 

BIT 

5,L 

CB 

AF 

RES 

5A 

CB 

Fl 



SET 

6,C 

DD 

CB 

dd 

96 

RES 

2,(IX+dd) 

CB 

6E 

BIT 

5, (HL) 

CB 

BO 

RES 

6, B 

CB 

F2 



SET 

6,D 

DD 

CB 

dd 

9E 

RES 

3,(IX+dd) 

CB 

6F 

BIT 

5A 

CB 

B1 

RES 

6,C 

CB 

F3 



SET 

6,E 

DD 

CB 

dd 

A6 

RES 

4,0X+dd) 

CB 

70 

BIT 

6.B 

CB 

B2 

RES 

6,D 

CB 

F4 



SET 

6,H 

DD 

CB 

dd 

AE 

RES 

5XIX+dd) 

CB 

71 

BIT 

6,C 

CB 

B3 

RES 

6,E 

CB 

F5 



SET 

6,L 

DD 

CB 

dd 

B6 

RES 

6, (IX+dd) 

CB 

72 

BIT 

6,0 

CB 

B4 

RES 

6, H 

CB 

F6 



SET 

6, (HL) 

DD 

CB 

dd 

BE 

RES 

7, (IX+dd) 

CB 

73 

BIT 

6,E 

CB 

B5 

RES 

6,L 

CB 

F7 



SET 

ZA 

DD 

CB 

dd 

C6 

SET 

0, (IX+dd) 

CB 

74 

BIT 

6,H 

CB 

B6 

RB 

6, (HL) 

CB 

F8 



SET 

7, B 

DD 

CB 

dd 

CE 

SET 

1, (IX+dd ) 

CB 

75 

BIT 

6,L 

CB 

B7 

RES 

6, A 

CB 

F9 



SET 

7,C 

DD 

CB 

dd 

D6 

SET 

2JX+dd) 

CB 

76 

BIT 

6,W 

CB 

B8 

RES 

7, B 

CB 

FA 



SET 

7,D 

DD 

CB 

dd 

DE 

SET 

3^IX+dd) 

CB 

77 

BIT 

6, A 

CB 

B9 

RES 

7,C 

CB 

FB 



SET 

7,E 

DD 

CB 

dd 

E6 

SET 

4^IX+dd) 

CB 

78 

BIT 

7, B 

CB 

BA 

RES 

7,D 

CB 

FC 



SET 

7, H 

DD 

CB 

dd 

EE 

SET 

5JX+dd) 

CB 

79 

BIT 

7,C 

CB 

BB 

RB 

7,E 

CB 

FD 



SET 

7,L 

DD 

CB 

dd 

F6 

SET 

6^IX+dd) 

CB 

7A 

BIT 

7,D 

CB 

BC 

RES 

7, H 

CB 

FE 



SET 

7, (HL) 

DD 

CB 

dd 

FE 

SET 

7|X+dd) 

CB 

7B 

BIT 

7,E 

CB 

BD 

RB 

7,L 

CB 

ff 



SET 

IA 

DD 

El 



POP 

IX 

CB 

7C 

BIT 

7, H 

CB 

BE 

RB 

7 (HL) 

DD 

09 



ADD 

IX, BC 

DD 

E3 



EX 

(SP), IX 

CB 

70 

BIT 

7,L 

CB 

BF 

RB 

7, A 

DD 

19 



ADD 

IX.DE 

DD 

E5 



PUSH 

IX 

CB 

7E 

BIT 

7, (HQ 

CB 

CO 

SET 

0,B 

DD 

21 

ff 

ff 

LD 

IX,ffff 

DD 

E9 



JP 

(IX) 

CB 

7F 

BIT 

7A 

CB 

Cl 

SET 

o,c 

DD 

22 

ff 

ff 

LD 

(ffff),IX 

DD 

F9 



LD 

SP, IX 

CB 

80 

RES 

0,B 

CB 

C2 

SET 

0,D 

DD 

23 



INC 

IX 

ED 

40 



IN 

B,(Q 

CB 

81 

RES 

o,c 

CB 

C3 

SET 

0,E 

DD 

29 



ADD 

IX,IX 

ED 

41 



OUT 

(Q,B 

CB 

82 

RB 

0,D 

CB 

C4 

SET 

0,H 

DD 

2A 

ff 

ff 

LD 

IX,(fffl) 

ED 

42 



SBC 

HL,BC 

CB 

83 

RB 

0,E 

CB 

C5 

SET 

0,L 

DD 

2B 



DEC 

IX 

ED 

43 

ff 

ff 

LD 

(ffff),BC 

CB 

84 

RB 

0,H 

CB 

C6 

SET 

0,(HL) 

DD 

34 

dd 


INC 

(IX+dd) 

ED 

44 



NEG 

CB 

85 

RB 

0,L 

CB 

C7 

SET 

0,A 

DD 

35 

dd 


DEC 

(IX+dd) 

ED 

45 



RETN 


CB 

86 

RB 

0,(HL) 

CB 

C8 

SET 

1,B 

DD 

36 

dd 

aa 

LD 

(IX+dd), aa 

ED 

46 



IM 

0 

CB 

87 

RB 

0,A 

CB 

C9 

SET 

1,C 

DD 

39 



ADD 

IX.SP 

ED 

47 



LD 

\A 

CB 

88 

RB 

1,B 

CB 

CA 

SET 

1,0 

DD 

46 

dd 


LD 

B, (IX+dd) 

ED 

48 



IN 

C,(C) 

CB 

89 

RB 

i,c 

CB 

CB 

SET 

1,E 

DD 

4E 

dd 


LD 

C, (IX+dd) 

ED 

49 



OUT 

(C),C 

CB 

8A 

RES 

1,0 

CB 

dd 

SET 

1.H 

DD 

56 

dd 


LD 

D, (IX+dd) 

ED 

4A 



ADC 

HL,BC 

CB 

8B 

RB 

1,E 

CB 

CD 

SET 

1,L 

DD 

5E 

dd 


LD 

E, (IX+dd) 

ED 

4B 

ff 

ff 

LD 

BC,(fffl) 

CB 

8C 

RB 

1,H 

CB 

CE 

SET 

m 

DD 

66 

dd 


LD 

H, (IX+dd) 

ED 

4D 



RED 


CB 

80 

RB 

1,1* 

CB 

CF 

SET 

1.A 

DD 

6E 

dd 


LD 

LJX+dd) 

ED 

50 



IN 

D,(C) 

CB 

8E 

RES 

1,(HL) 

CB 

DO 

SET 

2,B 

DD 

70 

dd 


LD 

(IX+dd), B 

ED 

51 



OUT 

(Q.D 

CB 

8F 

RB 

1,A 

CB 

DI 

SET 

2,C 

DD 

71 

dd 


LD 

(IX+dd),C 

ED 

52 



SBC 

HL,DE 

CB 

90 

RB 

2, B 

CB 

D2 

SET 

2,D 

DD 

72 

dd 


LD 

(IX+dd), D 

ED 

53 

ff 

ff 

LD 

(fffD.DE 

CB 

91 

RB 

2,C 

CB 

D3 

SET 

2,E 

DD 

73 

dd 


LD 

(IX+dd), E 

ED 

56 



IM 

1 

CB 

92 

RB 

2,D 

CB 

D4 

SET 

2, H 

DD 

74 

dd 


LD 

(IX+dd), H 

ED 

57 



LD 

A.I 

CB 

93 

RB 

2,E 

CB 

D5 

SET 

2,L 

DD 

75 

dd 


LD 

(IX+dd), L 

ED 

58 



IN 

m 

CB 

94 

RES 

2, H 

CB 

D6 

SET 

2,(HL) 

DD 

77 

dd 


LD 

(IX+dd), A 

ED 

59 



OUT 

(Q,E 

CB 

95 

RB 

2,L 

CB 

D7 

SET 

2, A 

DD 

7E 

dd 


LD 

AJX+dd) 

ED 

5A 



ADC 

HL,DE 

CB 

96 

RB 

m 

CB 

D8 

SET 

3, B 

DD 

86 

dd 


ADD 

A,(IX+dd) 

ED 

5B 

ff 

ff 

LD 

mm 

CB 

97 

RB 

2A 

CB 

D9 

SET 

3,C 

DD 

8E 

dd 


ADC 

A,(IX+dd) 

ED 

5E 



IM 

2 

CB 

98 

RB 

3, B 

CB 

DA 

SET 

3,D 

DD 

96 

dd 


SUB 

A,(IX+dd) 

ED 

60 



IN 

H,(C) 

CB 

99 

RB 

3,C 

CB 

DB 

SET 

3.E 

DD 

9E 

dd 


SBC 

A,(IX+dd) 

ED 

61 



OUT 

(Q,H 

CB 

9A 

RB 

3,0 

CB 

DC 

SET 

3,H 

DD 

A6 

dd 


AND 

(IX+dd) 

ED 

62 



SBC 

HL,HL 

CB 

9B 

RB 

3,E 

CB 

dd 

SET 

3,L 

DD 

AE 

dd 


XOR 

(IX+dd) 

B) 

67 



RRD 



ED 68 
ED 69 
ED 6A 
ED 6F 
ED 72 
ED 73 ff 
ED 78 
ED 79 
ED 7A 
ED 7B 
ED AO 
ED Al 
ED A2 
ED A3 
ED A8 

ED A9 
ED aa 
ED AB 
ED BO 
ED B1 
ED B2 
ED B3 
ED B8 
ED B9 
ED BA 


IN L,(C) 

OUT (C),L 

ADC HL.HL 

RLD 

SBC HL.SP 

ff LD (ffff),SP 
IN A,(C) 

OUT (C),A 
ADC HL.SP 

LD SP,(ffff) 

LDI 
CPI 


ED BB 
FD 09 
FD 19 
H) 21 ff 
FD 22 ff 
FD 23 
FD 29 
FD 2A ff 
FD 2B 
FD 34 dd 

FD 35 dd 

FD 36 dd 
FD 39 
FD 46 dd 

FD 4E dd 
FD 56 dd 

FD 5E dd 
FD 66 dd 
FD 6E dd 
FD 70 dd 
FD 71 dd 
FD 72 dd 
FD 73 dd 
FD 74 dd 
FD 75 dd 


OTDR 

ADD 

ADD 

ff LD 
ff LD 


ADD 
ff LD 
DEC 
INC 
DEC 
aa LD 
ADD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 
LD 


iy.bc 

IY,DE 

IY,ffff 

(ffff),IY 

IY 

IY,IY 

m 

IY 

(lY+dd) 

(lY+dd) 

PY+dd),aa 

IY,SP 

BilY+dd) 

C,(IY+dd) 

D^IY+dd) 

E|Y+dcÇ 

H,(IY+dd) 

LJY+dd) 

(IY+ dd).B 

(IY+dd),C 

(IY+dd),D 

(IY+dd),E 

(IY+dd),H 

(IY+dd).L 


FD 77 dd 
FD 7E dd 
FD 86 dd 
FD 8E dd 
FD 96 dd 
FD 9E dd 
FD A6 dd 
FD AE dd 
FD B6 dd 
FD BE dd 
FD CB dd 06 
FD CB dd OE 
FD CB dd 16 
FD CB dd 1E 

FD CB dd 26 

FD CB dd 2E 
FD CB dd 3E 
FD CB dd 46 
FD CB dd 4E 
FD CB dd 56 
FD CB dd 5E 

FD CB dd 66 
FD CB dd 6E 
FD CB dd 76 
FD CB dd 7E 


LD (IY+dd),A 

LD A,(IY+<*J| 

ADD A,(IY+dd) 
ADC A^IY+dd) 
SUB A,(IY+dd) 
SBC A,(IY+dd) 
AND (lY+dd) 
XOR (lY+dd) 

OR (lY+dd) 

CP (IY+dd) 
SET 0, (IY+dd) 

SET 1,(IY+dd) 
RL (IY+dd) 

RR (IY+dd) 

SLA (IY+dd) 

SRA (IY+dd) 

SRL (IY+dd) 

BIT 0, (IY+dd) 
BIT 1, (IY+dd) 

BIT 2,(IY+dd) 

BIT 3, (IY+dd) 

BIT 4, (IY+dd) 

BIT 5,(IY+dd) 

BIT 6, (IY+dd) 

BIT 7,(IY+dd) 


FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD CB dd 
FD El 
FD E3 
FD E5 
FD E9 
FD F9 


86 

RES 

0, (IY+dd) 

8E 

RES 

1, (IY+dd) 

96 

RES 

2, (IY+dd) 

9E 

RES 

3,(IY+dd) 

A6 

RES 

4, (IY+dd) 

AE 

RES 

5,(IY+dd) 

B6 

RES 

6, (IY+dd) 

BE 

RES 

7, (IY+dd) 

C6 

SET 

0, (IY+dd) 

CE 

SET 

1, (IY+dd) 

D6 

SET 

2, (IY+dd) 

DE 

SET 

3,(IY+dd) 

E6 

SET 

4,(IY+cfc|) 

EE 

SET 

5, (IY+dd) 

F6 

SET 

6, (IY+dd) 

FE 

SET 

7, (IY+dd) 


POP 

IY 


EX 

(SP),IY 


PUSH 

IY 


JP 

(IY) 


LD 

SP.IY 



GOTO ETGOSUB 
PARAMETRABLES 


Cette routine va vous permettre d'écrire un pro- 
gramme de ce genre : 

10 DEBUT = 1 00:SU1TE = 1 000:FIN = 600 
20 GOSUB DEBUT DE PROGRAMME 
30 GOSUB SUITE LOGIQUE 
40 GOSUB FIN DE JEU 
50 END 

100 PRINT"C'est le début" 

110 RETURN 

600 PRINT"C'est la fin" 

610 RETURN 

1000 PRINFC'est la suite" 

1010 RETURN 

Le nom des sous-programmes est limité à... 80 
caractères. Comme les variables classiques, 
seules les lettres majuscules et les chiffres 
seront acceptés, à l'exclusion des variables du 
BASIC ; et les 2 premières lettres seules seront 
prises en compte. On pourra également écrire : 
GOTO A/4+ 10*LEN(F$) ou toute expression 
du même genre. Dans notre exemple, les varia- 
bles prises en compte sont donc : DE, SU et 
FL Cette amélioration permet une programma- 
tion plus lisible et offre la possibilité de renu- 
méroter plus facilement les programmes. L'as- 
tuce consiste à « enrichir » les instructions 
GOTO et GOSUB. D'origine, ces instructions 
ne font appel qu'à une seule routine pour enre- 
gistrer le numéro de ligne fourni alors que l'ins- 
truction ON en utilise 4 pour calculer le numéro 
de ligne d'après les paramètres fournis. On va 
donc regrouper ces 4 routines, les terminer par 
un RET et les loger dans un coin inutilisé du 
BASIC (11713, par exemple). On créera ensuite 
un appel à ces routines au sein des instructions 
GOTO et GOSUB à la place des appels initiaux. 

Le programme joint effectue toutes ces modi- 
fications ; après l'avoir fait tourner, vous n'au- 
rez plus qu'à faire une copie de votre nouveau 
BASIC. 

Quelques remarques sur ce programme : 

Le RESTORE N° de ligne n'est pas signalé dans 
le manuel mais fonctionne parfaitement. Les 


modifications pour la recopie du BASIC sont 
intégrées. La comparaison de chaînes de carac- 
tères de longueurs inégales sont maintenant 
possibles. Enfin, l'entête affichée par le BASIC 
est modifiable et peut être remplacée par une 
nouvelle présentation. Résumons-nous : les 
fonctions paramétrables suivantes sont main- 
tenant possibles : IF GOTO, IF THEN GOTO, 
IF GOSUB, IF THEN GOSUB. Par contre, atten- 
tion : IF THEN ne répond plus. 

Une dernière astuce, pour conclure : Un pro- 
gramme peut être lancé, à partir d'une ligne 
donnée, en mode direct, par RUN N° de ligne 
ou par GOTO N° de ligne. Vous pourrez main- 
tenant taper GOTO A, à condition d'avoir défini 
A auparavant. 

Jean WANTZENRIETHER 


10 PRINT" G0T0-G0SUB paramétrables 
20 PRINT" = = = = = = = = = = = = = = = = 

80 REM --Paquet 4 S/P 

90 RESTORE 100 : FOR 1=11713 TO 11725 
95 READD: POKE l,D : NEXT 

100 DATA 205,51,35,205,38,25,205,78,26 

101 DATA 205,163,23,201 

105 REM autre place possible 12174 etc 

106 REM 

110 REM GOTO 

120 RESTORE 130: FOR 1 = 7846 TO 7848 
125 READD: POKE l,D: NEXT 
130 DATA 205,193,45 

140 REM GOSUB 

150 RESTORE 130: FOR 1 = 7882 10 7884 
155 READD: POKE l,D: NEXT 

160 REM ON GOTO 

170 RESTORE 130: FOR 1=8306 TO 8308 
175 READD: POKE l,D: NEXT 
180 REM 

200 REM BASIC recopiable 

210 POKE 16895,35: POKE 16896,66 
215 POKE 16919,0 

220 REM Comparer Chaines 

230 POKE 8965,195: POKE 8966,12 


240 REM Original = 120 , 177 et 200 

400 REM TEXTE présentation 

410 REM. BASIC recopiable USR ($11FD) 

420 RESTORE 450: FOR 1=4935 TO 4962 
425 READD: POKE l,D: NEXT 
450 DATA 32,66,65,83,73,67,32,157,146 
452 DATA 159,183,158,166,161,154,184 
454 DATA 146,32,85,83,82,40,36,49,49,70 
456 DATA 68,41,13 
470 REM. GOTO et GOSUB paramétrables 
480 RESTORE 500: FOR 1=4964 TO 4994 
485 READD: POKE l,D: NEXT 
500 DATA 32,71,79,84,79,32,146,150,32 
505 DATA 71,79,83,85,66,32,158,161,157 
510 DATA 161,179,146,150,157,161,154 
515 DATA 184,146,164,32,32,32,13 
520 REM 

600 REM Test sur GOTO 

610 A = 100: A$="Youpi" 

620 GOTO LEN(A$)*100 + A + 100 
630 STOP 

700 PRINT" C'EST GAGNE !";A$ 

710 PRINT" IF. THEN : ajouter GOTO ! 

720 PRINT" ON.GOSUB ne marche pas. 

730 PRINT 

740 PRINT" = = = = = = = = = = = = = = = = 
750 PRINT :PRINT:PRINT :END 




COMMUNICATION 


Les oclets de votre MZ-80B rêvent 
d'évasion ? 


Rassurez-vous, COM 820 n'est ni 
l'enseigne d'une agence de voya- 


3 es ni le numéro du dernier vol 
'Air France : c'est en fait un 
excellent programme de transmis- 
sion de données en mode RS-232 
via un MODEM. Il fonctionne sous 
CP/M. 


N.B. : Ne jamais donner à un fichier le type 
.COM qui ne serait pas du tout interprété par 
le CP/M comme signifiant communication. 

• Les commandes E,L,M,P, se comportent 
comme des inverseurs qui font basculer le 
système à l'état opposé de celui dans lequel 
il se trouvait avant l'envoi de la commande. 

• Conditions initiales : 

Pas d'écho sur la console 

Pas de retour ligne automatique 
Pas d'impression 

Majuscules et minuscules transmises 

• Le programme de communication sélectionne 
automatiquement le jeu de caractères français. 

M. ROPITÉAU 


1°) OBJET; 

Ce logiciel, fonctionnant sous CP/M, permet 
l'échange de messages et de fichiers de texte 
sur ligne téléphonique, en mode asynchrone 
(TTY), a des cadences comprises entre 1 10 et 
4800 bauds. L'utilisateur a le choix entre la 
cadence de transmission et de la parité. 

Le format des caractères transmis est le 
suivant : 

1 bit start 

7 bits d'information 

1 bit de parité (paire impaire) ou pas de parité 
1 bit de stop 

2°) MISE EN OEUVRE : 

On installera de préférence, chez les deux cor- 
respondants, des MODEM de même marque et 
du même type, choisis selon la rapidité de 
transmission désirée. L'un des correspondants 
enclenchera la fréquence F 1 , et l'autre la fré- 
quence F 2. 

Le MODEM doit être relié au système par la 
prise V 24 (connecteur 25 broches situé sur la 
carte RS 232 à l'arrière du calculateur). 

Le système d'exploitation CP/M étant chargé, 
l'opérateur appelle le programme COM 820. 
Le message « communications mode TTY » 
apparaît à l'écran, suivi de la liste des caden- 
ces disponibles. L'opérateur frappe alors le 
nombre correspondant à la cadence du 
modem ; si ce nombre est incorrect, la ques- 
tion est à nouveau posée par le système. 
Sur une réponse valable, le système interroge 
l'opérateur pour savoir si les caractères sont 
transmis avec ou sans parité et, dans l'affir- 
mative, si celle-ci est paire ou impaire. 


La liaison est dès lors complètement définie et 
validée (sous réserve que les choix effectués 
par l'opérateur concordent avec ceux de son 
correspondant). 

L'opérateur compose le numéro de son corres- 
pondant et, dès que la liaison téléphonique est 
établie, il appuie sur la touche TD (transmis- 
sions de données ou MODEM). 

L'opérateur peut envoyer des messages à son 
correspondant à partir du clavier ou en rece- 
voir. 

Il peut également transmettre ou recevoir des 
fichiers de textes stockés sur disquette. 

3°) COMMANDES : 

Un certain nombre de commandes sont à la dis- 
position de l'opérateur. Pour passer en mode 
commande, frapper "T 
Le nombre de commandes accessibles par une 
lettre est affiché à l'écran. Elles sont : 

C Clôture d'un fichier en cours de 
transmission 

D Délai (modification de temporisation) 

E Echo - tout caractère reçu ou transmis s'af- 
fiche sur l'écran local 

L Retour ligne automatique - le retour cha- 
riot provoque le passage à la ligne suivante 
M Majuscules - tout caractère reçu ou trans- 
mis sera transformé en majuscules 
P Impression - tous les caractères reçus ou 
transmis seront également imprimés 
Q Quitte - fin de session de télécommunica- 
tions et retour au système d'exploitation 
CP/M 

T T ransmission d'un fichier et sauvegarde sur 
disquette 

disque : nom du fichier type 


Pour recevoir ce logiciel faites-nous parve- 
nir une disquette, bien emballée, initialisée 
au format CP/M et la somme de 50 F. Nous 
vous retournerons votre disquette sous 1 0 
jours. 




ASTUCE... 

FENÊTRES 


Souvent, lors de la mise en écran d'un pro- 
gramme, vous avez cherché à faire apparaître 
des recommandations importantes pour la 
bonne utilisation, de votre oeuvre. Il faut alors 
jongler avec les petits bouts d'écran ou écrire 
en style télégraphique. 

Le programme en langage machine que nous 
vous proposons vous permettra de faire appa- 
raître sur l'écran des fenêtres (comme sur d'au- 
tres matériels) dans lesquelles vos remarques 
apparaîtront, puis l'écran initial sera restauré. 

'3 PARTIES: 

(COOO) sauvegarde de l'écran en RAM à par- 
tir de F000. Elle fonctionne en 40 ou 
80 caractères par lignes. 

(COI 6) récupération de l'écran depuis la RAM. 
(COI 2) affichage d'une fenêtre caractérisée par 
ses dimensions horizontales (placées en BFF 1 ) 
et verticales (placées en BFFO) ainsi que par 
la position du coin supérieur gauche définie par 
l'instruction CURSOR. 

Ces trois parties sont toutes relogeables. 
Attention : 

• aux longueurs affichées : il peut y avoir 
débordement sur l'écran. 

• aux dimensions de la fenêtre : dans le PG 
machine il n'est pas fait de test de fin de ligne. 

Jean MILLET 


L REM********************************* 

2 REM******** DEMÛ FENETRES ********** 

3 REM********* Jean Millet *********** 

4 REM*********** Qct 1984 ************ 

5 REM********************************* 

8 FOR I -0TQ83 s READR ! PÜKE49 1 52+ 1 , R : NEXT 

10 PR I NT " '*41 " 5 T AB < 7 ) î " PROGRAMME DE DEMONSTRATION" ï PR I NTT AB ( 1 1 > î "AAuteur Jean Mil 
let " ï PR INT" 4" ; STRING* < , 40) 

20 PRINT“444GRACE A CE PROGRAMME IL EST POSSIBLE DDE FAIRE APPARAITRE DES 

FENETRES" s PRINTTAB< 12) J "DSUR L'ECRAN" 

30 PRINT"DD" ; STRING* <"*", 40) : CURSORO, 23 s PR INT "5 lu te! tapes SPACE" : G0SUB105 
40 RESTQRE200 : USR ( «COOO ) : L X = 1 2 ï LY=3 : X = 1 ï Y=3 : GOSUB 1 00 : L X =3 : L Y= 1 2 ï X= 20 * Y- 1 0 : GÛSUB 
1 00 : L X =9 s L Y=5 : X = 1 2 : Y=5 ï GOSUB 1 00 : LX =4 : L Y=7 : X =30 : Y = 1 5 i GOSIJB 1 00 

50 LX=24sLY=5s X=3i Y=lû: G0SUB100! LX=15: LY-lOs X=1 s Y=3s G0SUB100* X=3: Y=5* GQSUB103: X 
*5 î Y =7 î GOSUB 1 03 s X =3 s Y=20 s LX =34 * L Y-3 s GOSLJB 1 00 s USR ( *CÛ 16): GOSUB 1 05 s PR I NT " *" : END 
ÎOO USR (*C016) 

1 03 POKE*BFF 1 « LX : P0KE*BFF0 , L Y * CURSORX , Y : USR ( *C02C > : READL* î PR I NTL* 

105 GETR*: IFR*=" “THEN105 
110 RETURN 

150 DATAI 7» O» 240» 42» 19,0,237,75,27,0,205, 104, 12, 18,35, 19, 11, 120, 177,32,245,201, 


17,0,240,42, 19,0,237,75,27,0,26,205, 122, 12,35, 19,11, 120, 177,32,245,201,237,91 
155 DATA157 , 7 , 205, 83, 12,237,75,240, 191,229, 197,243,219,232,203,255,211,232,62, 1 
60, 119,35, 16,252,219,232,203, 191,211,232,251, 193,225, 13,200,25,24,227 
200 DATA " I faBMWasMsUUa " , , " ADDaSS" , "(MV 


205 DATA"D«^3i 


=PAGE= 

1 


FENETRE 


DESAS-Z80 

,«»« 


===== 

SïaSMSBSSSSS 

- s *~ ssas *= 


ADDR. 

IMS TRUC . 


ASCII 

MNEMONIQUE OPER. 

COOO- 

11 

00 

FO 


2 

LD 

DE , FOOOH 

C003- 

2A 

13 

00 


* 

LD 

HL, C0013H) 

C006- 

ED 

4B 

IB 

00 

w 

LD 

BC, (001BH) 

CODA- 

CD 

68 

oc 


ih 

CALL 

0C6BH 

COOD- 

12 





LD 

(DE) , A 

CGQE- 

23 




# 

INC 

HL 

COOF- 

13 





INC 

DE 

CO 10- 

OB 





DEC 

BC 

COU- 

78 




y. 

LD 

A, B 

CO 12- 

B1 




H 

OR 


CO 13- 

20 

F5 



B 

JR 

NZ , F5H -4C00AH 

CO 15- 

C9 




II 

RET 


CO 16»- 

11 

00 

FO 


a 

LD 

DE, FOOOH 

CO 19- 

2A 

13 

00 


* 

LD 

HL, (0013H) 

C01C- 

ED 

4B 

IB 

OO 

UK 

LD 

BC, (001BH) 

C020- 

IA 





LD 

A, (DE) 

C021- 

CD 

7A 

OC 


ifc 

CALL 

OC 7 AH 

C024- 

23 




# 

INC 

HL 

C025- 

13 





INC 

DE 

CÛ26- 

OB 





DEC 

BC 

C027- 

78 




>: 

LD 

A, B 

C028- 

B1 




II 

OR 

C 

C029- 

20 

F5 



S 

JR 

NZ , F5H 4C020H 

C02B- 

C9 




II 

RET 


C02C- 

ED 

SB 

9D 

07 

Wt 

LD 

DE, ( 079DH) 

C030- 

CD 

53 

OC 


i£ 

CALL 

0C53H 

C033- 

ED 

4B 

FO 

BF 


LD 

BC, (BFFOH) 

C037- 

E5 




llliill 

PUSH 

HL 

C038- 

C5 




illlllll 

PUSH 

BC 

C039- 

F 3 




s 

DI 


C03A- 

DB 

ES 



lia 

IN 

A, (E8H) 

C03C- 

CB 

FF 



an 

SET 

7, A 

C03E- 

D3 

E8 




OUT 

<E8H) , A 

C040- 

3E 

AO 



■ 

LD 

A, AOH 

C042- 

77 




w 

LD 

(HL) , A 

C043- 

23 




# 

INC 

HL 

C044- 

10 

FC 



II 

DJNZ 

FCH 4C042H 

C046- 

DB 

ES 



«ta 

IN 

A, (E8H) 

C048- 

CB 

BF 



liiiiii 

RES 

7, A 

C04A- 

D3 

ES 



m 

OUT 

(EBH) , A 

C04C- 

FB 




a 

El 


C04D- 

Cl 




'a 

POP 

BC 

C04E- 

Et 




iiiiiiiil 

POP 

HL 

C04F- 

OD 





DEC 

C 

C050- 

C8 




SJ 

RET 

Z 

C051- 

19 





ADD 

HL, DE 

C052- 

18 

E3 



lllllll 

JR 

E3H -)CÜ37H 



Nous allons étudier dans cet article la partie relative à la gestion du 
clavier et à la saisie de ligne. 

A ce propos nous vous renvoyons au MODE D'EMPLOI DU MZ-80, 
pages 53 et 54, où le balayage du clavier nous est expliqué. 
Nous retiendrons que : 

• des signaux de balayage (STROB) sont envoyés pour tester l'état 
du clavier par le port &E8H (bits 0 à 3). 


• si une touche est enfoncée, le bit correspondant à la colonne dans 
laquelle se trouve la touche est mis à 0, les autres restant à 1 . Les 
touches sont regroupées en trois modes (1 , 2 et 3) correspondant 
au nombre de fonctions disponibles sur les touches. Le STROB de 
valeur 1 1 n'active que les touches « spéciales », pouvant être con- 
juguées à d'autres. 


Revenons au Monitor et commençons à l'adresse 06A4. 

06A4 

GETL 

Saisie d'une ligne au clavier, avec les déplacements du curseur. 

La fin de la saisie a lieu si CR est pressée (OD en fin de ligne) ou par BREAK (OB 
et OD en début de ligne). 

L'adresse de stockage de début de ligne est dans (DE) et la position du curseur 
dans (HL) : H = X et L = Y. 

- 

KEYW1 

Début de la boucle de clignotement du curseur 


KYFL1 

Saisie de touche et temporisation curseur, la vitesse de clignotement est en 06DD. 
appelle : ?PONT DSPR DSPW KEYKEY 

06F 1 

KEYDIS 

Traitement de la touche enfoncée au clavier. 

Si flèche de déplacement du curseur : répétition éventuelle par SHIFT 
Sinon traitement de la touche. 
appelle : KEY FLASW 

0729 

DISPM 

Affichage du caractère correspondant à la touche, avec beep si (0015) est nul. 
appelle : FLASW BELL ?DSP 

0762 

KFINO 

Fin de saisie et retour en KEYW si la touche est différente de CR ou BREAK 

076B 

FU NC 

Touche de code ASCII inférieur à 1EH (flèches CLR... Fl... F10, 00, TAB). 
A < code ASCII DE LA TOUCHE. 
appelle : FTAB GTCR GTBRK ?DPCT 

077E 

GTBRK 

Traitement de BREAK : affichage de OB et OD en début de ligne. 
appelle : LETNL 

0791 

NOKKEY 

Pas de touche enfoncée : (1 173) <r 0 puis branchement en NOKKKY 

0798 

GTCR 

Traitement de CR : 

recherche fin de ligne texte (boucle GTCRO), puis début du texte (ADDGA) 
transfert en mémoire des lignes écrites en VRAM (GETLC) avec remplacement des 
00 de VRAM par 20H (code SPACE) (boucle GL0P1 ) et mise de ODH en fin de texte, 
avec suppression des 20H (boucle GLOP2) 
appelle : MAGA ?PNT1 DWLDIR GETLR 

07F 1 

FTAB 

Traitement des touches Fl... F10 

A < numéro de la touche. Il y a recherche dans la mémoire, à partir de l'adresse 
1180, des ODH avec affichage du texte correspondant. 
appelle : ?PRT 

0821 

TAB 

Traitement de la touche TAB 

recherche dans la mémoire tabulation ( 1 1 40) de la valeur immédiatement supérieure 



à X (boucle TAB1) puis déplacement du curseur jusqu'à cette valeur. 
appelle : ?DPCT GTCR 


0847 

FOO 

Traitement de 00 

vérification qu'il reste 2 espaces sur la ligne puis affichage du contenu de FOARE 
(0023 et 0024) 
appelle : GTCR MSGX 

085D 

FLASW 

Ecriture du caractère masqué par le curseur 

0866 

NOKKKY 

Pas de touche enfoncée 

écriture de OBH (12 fois) à partir de 1 173 et A <• 1EH 

0871 

GETKY 

Empilement des registres et A<- code ASCII de la touche enfoncée, (si rien : A<- 0) 
appelle : KEY 

087F 

?DSP 

Ecriture en VRAM et mise à jour du code de la ligne (MAGA) 
appelle : 7PONT DSPW MAGA CURSR 

08B0 

LETNL 

Place le curseur au début de la ligne suivante avec mise à zéro de (1 172) 
appelle ; ?DPCT 

08B9 

PRNTS 

Affiche un espace à la place du curseur 

08BE 

PRNTT 

Affichage d'espaces en fin de ligne 
appelle : PRNTS 

08CD 

MSGX 

Affichage d'une chaîne, avec éventuellement les symboles des déplacements cur- 
seur, CLR ou HOME. 

Adresse de début : (DE) 
fin si ODH 
appelle : PRT3 

08DB 

MSG 

Affichage d'une chaîne avec déplacement du curseur, flèches CLR ou HOME 
adresse de début : (DE) 
fin si ODH 
appelle : ?PRT 

08EE 

?PRT 

Affichage du caractère de code ASCII contenu dans C si les 4 bits supérieurs sont 
nuis : commande du curseur sinon le caractère correspondant est affiché et il y 
a mise à jour de (1 1 72) : numéro d'ordre du caractère dans la ligne (1 60 au maximum) 
appelle : ?DPCT ?DSP 

0916 

PRNT 

Affichage du caractère dont le code ASCII est dans A à la place du curseur 
appelle : LETNL ?PRT 

0922 

SCRSET 

Détermination des caractéristiques de l'écran : adresse du premier caractère en 
VRAM et nombre de caractères acceptés sur l'écran puis effacement de l'écran 
appelle : ?DPCT 

0950 

KEY 

Recherche de la touche enfoncée et de son code ASCII le balayage de l'écran est 
fait par la boucle SWEP (STROB est égal à D et varie de OBH à OOH), B est chargé 
avec la donnée de la touche enfoncée. 

Si deux touches sont enfoncées en même temps, c'est celle qui a le STROB le plus 
faible qui est prise en compte. 

0991 

NOKD 

Touche spéciale enfoncée, caractérisée par la donnée en B. 

B = 1 : GRPH, B = 2 : SFTLOCK, B = 3 : GRAPH+SFTLOCK 
B = 5 : SHIFT+GRAPH , B = 6 : SHIFT+RVS 
B = 8 : RVS , B = 1 2 : SHIFT+RVS 

09D9 

DATA 

Touche classique enfoncée, donne le code ASCII dans A. 

B : code la touche spéciale enfoncée 
D : valeur du STROB 

E : donnée de la touche (poids du bit 1 dans l'octet) 

Passe par la détermination de l'adresse du début de la table des codes ASCII (mis 
dans HL). 

OA 53 

KEYKEY 

Saisie d'une touche quelconque au clavier. 
appelle : KEY 

0A6E 

0AA1-0AD1 

7DPCT 

Affichage du caractère ou de l'ordre correspondant au code ASCII contenu dans A. 
Mise sous tension des LED du clavier suivant le mode. 

0AD2 

OB14-OB5A 

SCROL 

Transfert vers le haut de la VRAM et effacement de la dernière ligne 
appelle : DWLDIR DSCL 

Ordres de déplacement du curseur (CURSOR KEYS). 

0B5B 

CLRS 

Effacement de l'écran 
appelle : DSCL 7CLER 


1 


0B7C 

HOME 

Déplacmenet du curseur HOME 
appelle : SCRSTD 

0B84 

U 

Effacement du caractère sous le curseur et déplacement du reste de la ligne de 
1 caractère 

appelle : SCRDSD MAGA ?PONT DSPW CURSL DSMAG DWLDIR 

OBCB 

INST 

Insertion d'un espace à la place du curseur et déplacement du reste de la ligne. 
appelle : DSMAG ?PNT1 DSPR 

OC12 

CR 

Ordre de fin de ligne. Recherche de la fin de ligne. 
appelle : DSMAG CURS2 CURS1 

0C3C 

SCRDSD 

Vérification de première ligne de l'écran : si oui Z = 0 

0C4A 

MAGA 

Chargement de A avec (1153) + numéro de ligne. 

OC 53 

?PONT 

Calcul de l'adresse en VRAM du caractère de coordonnées X et Y (L = X, H = 
Y). L'adresse est dans HL. 

0C68 

DSPR 

Lecture dans VRAM du caractère d'adresse (HL). Le code est dans A. 

0C7A 

DSPW 

Ecriture dans VRAM de (A) à l'adresse (HL). 

OC 87 

DWLDIR 

Chargement en VRAM d'une chaîne. 
(HL) : adresse du début de la chaîne 
(DE) : adresse de la position en VRAM 
(BC) : longueur de la chaîne 

OC 96 

DSCL 

Effacement d'une zone VRAM 
(HL) : adresse de début 
(B) : longueur de la zone 

0CA6 

CHR80 

Modification des constantes monitor pour le mode à 80 caractères par ligne. 

OD18 

CHR40 

Transformation en 40 caractères par ligne. 

OD31 

REGIST 

Affichage des contenus des registres AF BC DE HL 
appelle : PRTHL PRNTS 

OD48-ODF5 


Table des codes ASCII des touches normales, « shiftees » puis graphiques. 

A suivre - Jean MILLET 


GOTO GOSUB RESTORE 

N' DE UONE OU VARIABli CALCUUI 


Quelques POKE'S bien placés dans 
votre BASIC cassette SB 55 1 0 ou 
BASIC SB 6510 ouvriront des 
horizons nouveaux à vos instruc- 
tions : G0T0-60SUB-REST0RE. 


EXEMPLE : 

GOTO 100 

C = 100 : GOTO C 

C= 10 : GOSUB Cx 10 

C - 1 244 : RESTORE C 

Ces POKE'S devront être placés en début de 

votre programme BASIC. 


Pour RESTORE : faire en début de programme : 
BASIC K7 

POKE $ 1D9D, $ B7: POKE $ 1D9E,$ 1E 
DISK BASIC 

POKE $ 1ED7, $ F2: POKE $ 1ED8,$ 1F 

Pour GOTO : faire en début de programme : 
K7 

POKE $ 1EF5, $ B7 : POKE $ 1EF6,$ 1E 
DISK BASIC 

POKE $ 2036, $ F2 : POKE $ 2037,$ 1F 

Pour GOSUB : 

K7 

POKE $ 1F1D, $ B7 : POKE $ 1F1E,$ 1E 



DISK 

POKE $ 2066, $ F2 : POKE $ 2067, $ 1E 
En fin de programme, vous devez replacer les 
valeurs initiales du BASIC, soit : 

K7 $ 41 où a été mis $ B7 
$ 18 où a été mis $ IE 
DISK $ 5F où a été placé $ F2 
$ 19 où a été placé $ 1F 

ATTENTION : 

Le RESTORE seul n'est plus accepté, il faut 
faire RESTORE (1 er n° de ligne de DATA) ou 
RESTORE 0 

D. DAME 





LA LOGITHEQUE 

... ou plutôt les Logithèques, 
cor il nous faudrait un bulletin 
complet pour vous présenter 
la liste des logiciels du Club, 
toutes machines confondues. 

Alors nous avons dû trancher 
et vous proposer notre logi- 
thèque par morceaux, ou plu- 
tôt, par catégorie d'appa- 
reils. 


Dans ce numéro : 
la logithèque MZ-80B. 
Dans le numéro 13 : 
tous les programmes 
pour PC-12XX, 14XX 
et 13XX. 


ALUNISSAGE 
ANAGRAMME 
ASTEROID BELT 

Ê w 8 R (Uaphs 

§l8ck r ja^ 

BOWLING 

BOITE A ATOMES 
CHENILLE 
CHATEAU HANTE 
COFFRE FORT 
CRAZY KONG 
DISEUR 

DONKEY CLIMBER 


UNE FUSEE? LA LUNE? VOUS AUX COMMANDES; DEVINEZ LA SUITE... 

VOTRE 1 M I SS I ON^ E DET Rüf RE^LE I VILAINES ASTEROÏDES OUI ONT L’AIR DE BEAUCOUP VOUS EN VOULOIR. 
UN CLASSIQUE DES CASINOS CONTRE HZ 

LA PISTE LES QUILLES LE TABLEAU? TOUT Y EST? IL NE HANQUE PLUS QUE VOUS. 

LE TYPE HEHE DU TRES BON JEU DE REFLEXION? OoUS PROHET DE BELLES NUITS BLANCHES. 

UN JEU DE CHENILLE QUI? PAR SA PRESENTATION ET SES DIFFICULTES? SORT DE L’ ORDINAIRE. IGR.l) 

VOUS FAUDRA PARCOURIR UN LONG CHEMIN SEHE D’EMBUCHES AVANT DE TROUVER LE COFFRE NI RACLE 

TLLENT JEU DE REFLEXION. ATTENTION HZ EST TRES FORT. 

T ACTION JAPONAIS GRAPHIQUE (GRAPH.i) 


mm 


BRIDGE 


GROUGNI 


HANOI-M 
HEAD ON 
HORLOGE 

aEü p* 


IACHES 


MURALE 

PARLEE 


LA VIE 


LARIGOU 
VEGAS 


LoloTRON 
LUNAR 
MASTER VACHE 
MEMORY CARTES 
MOZART 
MORPION 

MUR DE BRIQUES 

MURDEBRIK 

NUS 

ODYSSEE 2001 
OTHELLI 

PETALES DE VIE 
PENTOMINOS 
POKER PATIENCE 
POUSSE POUSSE 
PUISSANCE 4 
SEA BATTLE 
SILOS 
SIMUL-VOL 

Ipace M invader 

Itar E sous S marin 

STR I P TEASE 
STOCK CAR 
SUPERMAN 
TENNIS 
TIERCE 
TRACE + 

V R P 

VIPÈRES CITY 


IL V( 
EX CEI 
JEU ’ 


B it Z A 
SPERANCE DE VIE 
EVEREST 

GALTON PLANCHE 


UN ORACLE SYBILLIN CREE DES QUATRINS OU ALEXANDRINS A LA DEMANDE 


JEU 




ACTION GRAPHIQUE? L’ESCALADE D’UN IHHEUBLE SEHEE D’EHBUCHES. 


TOœTEiSÆBr'lf lirTSiréSS 

»0§ ffiffitlQUE 

UPER PUCK-HAN HYPER GRAPHIQUE? LE HEILLEUR JEU H. R. DU HZ 80B 
VARIANTE SCIENTIFIQUE DES TOURS DE HANOI. BEAUCOUP DE REFLEXION. 
L.H. GRAPHIQUE. COURSE DE VOITURES DANS UN LABYRINTHE. 

HORLOGE DIGITALE ET ANALOGIQUE SUR UN HEHE ECRAN 
HORLOGE PARLANTE CREEE GRACE AU PROGRAHHE SONORISATION 
JOLIE DEHONSTRAT I ON GRAPHIQUE T 


RAPIDE 


smsir 1 ’ 


«I D , æ .™ ABSOLUE ASSUREE. 

UNE 
JEU . 

UN si 
UNE ■ 

JEU 
UNE 

YrIs 

EN H.R. ET LANBASE HftCHINE. 

VEDETTE DE B. B. SRAPHTBUE 

UNE SUPERBE NACHINE A SOUS GRAPHIQUE (6RAPH.il .. . 

CREATION GENIALE DE NOTS PAR NT ET AFFICHAGE DE LEURS SIGNIFICATIONS. 

UNE BELLE SINULATION D’ALUNISSABE) 

UN NASTER Nllffl ECOLOGIQUE ET GRAPHIQUE , 

UN EICELLENT JEU DE CARTES OU IL VOUS FAUDRA BEAUCOUP DE HENOIRE. 

UN HENUET DE WOLFGANG ANADEUS. 

ATTENTION NI EST TRES FORT 
UN CLASSIDUE... 

JEU l.N. SRAPHIDUE. DENANDE BEAUCOUP D’ENTRAINENENT. 

DE DOS OU., .DE FACE.. .SUR DENANDE... 

UN TRES BON JEU D’ACTIDN EN H.R. 16RAPH 11 
UN OTHELLO DIGNE DE JOUER CONTRE UN SUN JOUEUR HUNA 


THEItÉ' ASTRAL SKIS FORNE D’UNE FLEUR GRAPHIQUE IBRAI 
UN DES MEILLEURS PR03RAHNES DE REFLEIION. 


Il 


UNE COHBINAISBN DU POKER ET DU JEU DE PATIENCE PASSIONNANTE. 

TRES JOLI JEU DE DEDUCTION ET DE REFLEIION NATHEHATIBUE. 

LES REBLES SONT ARCNI-CONNUES 

UN STARTRECK ANGLAIS PLEIN D’HUNOUR ET DE SURPRISES. 

S MÜW DIFFICILE. 1BRAPH II. 
RI » S mm MEII IL VOUS FAUDRA RUSER. 

fcmawfemff?ïi i B.E» 

MMB CHEvÂufï’idNTI A VOUS DE PARIER. 

Me'rWM POUR EFFECTUER SA TOURNEE. 

JEU L.N. GRAPHIQUE. I» MODE INFERNAL INFESTE DE SERPENTS 


32 K 
64 K 


La logithèque est consituée en grande partie 
de logiciels conçus réalisés par les SHARPEN- 
TIERS et transmis au Club. Les modalités d'ac- 
cès à celle-ci répondent à deux impératifs : 

• Assurer une légitime contrepartie aux con- 
cepteurs de programmes. 

• En faire bénéficier tous les Sharpentiers, 
mêmes débutants en programmation. 

Dans cet esprit, nous avons créé la procédure 
suivante : 

1. Vous nous faites parvenir un ou plusieurs 
programmes dont vous êtes l'auteur, nous vous 
retournons, sous 20 jours maximum un accusé 
de réception accompagné d'un nombre de 
points équivalent à la valeur de ce(s) pro- 
gramme(s), de (1 à 5 par programme), vous 
pourrez ensuite nous demander, en une seule 
fois, autant de programmes de la logithèque 
que de points acquis. Vos programmes doivent 
nous parvenir sur cassette, accompagnés 
d'une notice aussi complète que possible. 

2. Vous désirez recevoir des programmes mais 
n'avez pas de points à votre crédit. Faites-nous 
parvenir, dans ce cas, une cassette vierge et 
la somme de 1 5 F par programme demandé, 
nous vous retournerons vos programmes sous 
forme de listing ou sur cassette sous 20 jours 
maximum. Offre limitée à 3 programmes par 
ENVOI. 


ut 1 1 x ta i res 


MBLEUR 
- BÛRTr " 
COMPACTEUR FD 
COP I E TOUT 
DESASSEMBLEUR 

DISKFER 
GRILLES 
INDISKRET 
LECTURE 1500 
PATTERN MAKER 
REPRO-CASSETTE 
SYSGEN 
VISI RAM 


ASSEHBLEUR SHARP EN UN SEUL PROGRAHHE COHPRENANT : EDITEUR; ASSEMBLEUR? DEBUGGER. 

m EïïffiS SAGNER DE LA PLACE. 

COPIE L’INTEGRALITE D’UNE DISQUETTE SUR UNE AUTRE. nuf , nM , nA 

P.IÇpÇBENÎEB_VERSIONS_POyR LIÇE_EN_CLft I R^LEB^INSTRUCT I l » y j j t_ j SATEUR DE DISQ. 

: SUR UNE AUTRE (BTX.OBJ.BRD.BSD) 

LIT LÈS VALÉÜRS HÉXA DÊ"CHAQUË'PÏSTË"Ëf “SECTEUR D’UNE DISQUETTE. nr <cnA 
PERHET LA LECTURE ET LA RECOPIE DES CASSETTES ENREGISTREES SOUS FORÇAT PC 1500 

P«OCS DE 256 OCTETS SOUS FORNE HEXA ET ASCII 


32 

64 

64 

64 

64 

t 

64 


64 K 
b* " 


EE M S EE X G M EMENT 


SCIENTIFIQUES 


AD LOGO 

SüUiSrfRWfgN 

BELGIQUE 

CALCUL 

CHIFFRE LETTRE 
CONJUGAISON 
DENOMBREMENTS 
EQUATIONS— GRAPH 
EQUATIONS 


ïse??6 


FRANi 
GLOBl- 
HISTOIRE 
MAXIMUM 
MULTIPUZZLE 
P.D.C.G. 

PH 


flIvfbsBPH 

VILLES DE FRANCE 
VOCABULAIRE 


RTIONS 
“SE fir 


ONDE 


PERHET; A PART IR_DE. PG1 NTS_CONHtJE.; _DE..REÇHERÇHER . L ’ EQÜfiT IQN DE NEILLEURE Al 


mmmtWJBMÆWli» sihfle m plus cshpieje. 

L’ARf L ET R LA J HANlÊRÊ WrENDRE^I! 1 VERBEs!.. TOUS LES VERBES. 

CALCULS DE DENOHBREHENTS PAR COMBINAISONS? PERHUTATIONS OU ARRANGEHENTS. 
ENTREZ VOS EQUATIONS LA COURBE SERA GENEREE A L’ECRAN 
RESOLUTIONS DE TOUS TYPES D’EQUATIONS. 

REPRESENTATION GRAPHIQUE DE L’ESPf 


NS DE C I M . DBNNË'TOUTÉSTES FRACTIONS POSSIBLI 
— 11 QUE DI" “ 


æ E D’UN NDHBRE DEC I H AL. 


RipRlilSlAnON.lRAPHliul .DU SLOBE^SOUS^XOUS . SES , ( 6R AP . 1 . 


iTES ET LES FAITS HARQUANTS DE NOTRE HISTOIRE SOUS FORHE VIVANTE. 

JEU DE DEDUCTION HATHEHATIQUE. 

UN EXCELLENT PROGRAHHE D’INITIATION AUX MULTIPLICATIONS SOUS FORHE DE Jl 
UNE LEÇON DE CALCUL CONSACREE AU PLUS GRAND COMMUN DIVISEUR. 

REPRESENTATION GRAPHIQUE DE DONNEES STATISTIQUES r 
UNE EXCELLENTE INITIATION A LA GEOGRAPHIE FRANÇAISE. 

DE TRES NOMBREUX HOTS AVEC UN CHOIX DE SIGNIFICATIONS. 


■sH-E O I VERS 






NT 

:s 


BIBLIOTHEQUE 
CALCUL FINANCIER 
CALCUL EMPRUNT 
CCP 

mm%u D ^ upES 

H85k°LfsS OND 

MORSE 

MUSIQUE SUISSE 
MUSIQUE 
PLANNING 12 
SONORISATION 
TACHES 


CALCULE 
UN “ — 


j HZ BOA’ (ED.P.S.I) REVU 
' “TLCUL D’ ANNUITES. 


SELON LA METHODE DU TAUX DEGRESSIF 

, 1 ) 

ET'cÔrRIGE POUR BOB ET DISQUETTES. 


UIAMMflfkKiw 

ToS LES D CALCULS SUR LES REMBOURSEMENTS D’UN EMPRUNT 
ÇALÇüL^dIsI^TOŒS^Ie^COUPES^POÜR^dÇfFEREIITS MODES D’USINABES DE MATERIAUX. 


GESTION DES 

IfêPRKENTAT I W R Slffi”WRÏiWNTÈ"’fc"LÂ JÔCDNDi 
TRADUIT TOUS VOS MESSAGES EM MORSE. 

mwamsmm «ww». « 

TRES COMPLET? PERMET DE FAIRE DES lEVISIOjfâ BUDGETAII 
SffilîŒŒ D’UNE TACHE. 


ÀVEÇTÉS~ifyRES„LOCWuES DES GRANDES VILLES DU MONDE. 


I SUR 12 MOIS. 


ffl 


ATÉRIEL 
OBILIER DE 


UREAU 


WPRI 1 MW 

DISQUETTES 5P 

quick dis 


F OURNITURES 
89, route d’Aulnay, 93270 SEVRAN 



mai 


MZ700 
MZ800 
MZ 3500 


MONSIEUR 


g \36 8 

l'ê 

1 

^ ^ i imüü nM wa» fcS e_ ^ g 


pc' 50 îft 


< . i 

I DESlIîf RECETOIR UN CATALOGUÉ COMPLET; LES TARIFS DES PRODUITS ET ACCESSOIRES SHARP. (iO'NDRE 1 TIMBRE A 2,20 F). 



BULLETIN D'INSCRIPTION AU CLUB DES SHARPENTIERS 

NOM PRÉNOM.... 


□ Je m'inscris 

au CLUB DES SHARPENTIERS 

Je bénéficie de tous les 
avantages du CLUB 

Je suis abonné pour 1 AN 
au BULLETIN du CLUB 

Je vous joins mon règlement 

□ FRANCE : 160 F 

□ ETRANGER : 200 F 

CHEQUE N° BANQUE . 


ADRESSE ...... 


CODE POSTAL / VILLE 


PAYS 


PROFESSION ÂGE 


MACHINE POSSEDEE . 


. DEPUIS 


SIGNATURE 


ACHETEE CHEZ 

UTILISATION PRINCIPALE DE VOTRE MACHINE 


Club des Sharpentie 


Jean-Jaurès 93307 AUBERVILLIERS CEDEX Tél : 834.93.44 




